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DITORIALE 


Una lingua per tutti 


di Riccardo Paolillo 


Una delle prime difficoltà contro cui si scontrano i 
nuovi utilizzatori di personal computer è senza dub¬ 
bio costituita dalla necessità di dover utilizzare un 
linguaggio nuovo, normalmente il BASIC, per comu¬ 
nicare con la macchina. 

Il BASIC è giustamente considerato il linguaggio 
più semplice ed immediato da apprendere, ma ciò 
non toglie che spesso comprendere la logica di fun¬ 
zionamento del calcolatore e fargli eseguire qualche 
programma, richieda un po’ di impegno. 

Molte persone che sanno programmare, non rie¬ 
scono a capacitarsi del fatto che il linguaggio di 
programmazione possa risultare concettualmente 
così ostico dato che è costituito da vocaboli da com¬ 
binare insieme secondo ben precise regole grammati¬ 
cali e sintattiche, come un qualunque linguaggio na¬ 
turale, come ad esempio la lingua italiana. 

Io credo, però, che il problema vada visto in termi¬ 
ni più generali, alla luce di nuove tendenze che si 
stanno verificando nel campo delle comunicazioni 
interpersonali. È noto che in questi ultimi anni è 
cambiato sensibilmente il modo di utilizzare la lingua 


parlata e da più parti si è lamentato un impoverimen¬ 
to del linguaggio. 

Le cause sono molteplici e spesso legate all’avven¬ 
to di nuovi ed efficaci mezzi di comunicazione di 
massa. Una società che prima comunicava quasi 
esclusivamente con la parola, scritta e parlata, ha 
scoperto nuovi sistemi legati in modo determinante 
all’immagine, quali la televisione o il cinema. 

Questi nuovi mass-media, si sono segnalati per la 
loro immediatezza e facilità di comprensione da par¬ 
te di tutti, grazie all’assenza di particolari e complesse 
regole di utilizzo (anche se lo scambio informativo 
che avviene è quasi sempre unilaterale). 

I personal, invece, sotto questo aspetto vanno un 
po’ controcorrente. Il linguaggio tradizionale con le 
sue regole precise e ben definite è ancora, in generale, 
l’unico mezzo di comunicazione possibile. 

Questa antitesi è probabilmente la causa di un 
freno psicologico iniziale che limita l’apprendimento 
veloce della programmazione ai neofiti. 

Comunque, niente paura! Come già osservato, si 
tratta solo di avere un briciolo di pazienza e di co¬ 
stanza e, comunque, il futuro prossimo e in qualche 
caso il presente, sono destinati a determinare un 
progressivo annullamento di questo problema: i si¬ 
stemi ad uso facilitato, dotati di grafica sofisticata e 
accessori ad utilizzo immediato, sono ormai alle por¬ 
te e faranno si che utilizzare un personal computer 
diventi per chiunque una operazione assolutamente 
semplice e naturale. g 
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Le innovazioni tecnologiche americane che 
hanno ampiamente contribuito 
all'automazione dei sistemi di gestione ufficio 
sono presenti alla manifestazione FUTURE 
OFFICE, l'unica, nel suo genere, che presenta 
esclusivamente prodotti e sistemi Made in 
U.S.A.. Questo incontro si svolge a Milano, 
presso la sede del Centro Commerciale 
Americano in via Gattamelata 5, 
dal 27 al 30 marzo 1984. 



CENTRO 

COMMERCIALE 

AMERICANO 

Via Gattamelata 5 -20149 Milano 
Tel. 02/4696451 - Telex 330208 USIMC I 


Per fornire un panorama il più completo 
possibile del settore partecipano alla mostra le 
più importanti aziende statunitensi, con 
prodotti e sistemi che rappresentano la 
risposta adeguata alle esigenze degli 
utilizzatori in tutti i livelli di impresa. Office 
Automation significa quindi avvicinarsi alle 
tecnologie studiate per evolvere e semplificare 

la gestione ufficio. 
Nel corso della mostra due giorni saranno 
dedicati ad un seminario tecnico specializzato, 
maggiori dettagli saranno forniti 
prossimamente. FUTURE OFFICE 1984 crede di 
poter superare ampiamente il successo 
ottenuto nell'edizione passata e vi invita ad un 
incontro con l'ufficio del domani, oggi. 











Dischi protetti 


Sono un felice possessore di un 
CBM64 e vorrei sottoporvi un paio 
di quesiti. 

1) Tutti sanno bene che avere 
sempre pronta la copia di un di¬ 
schetto che si sta utilizzando è un 
ottimo metodo per salvaguardarsi, 
nel caso il dischetto stesso vada acci¬ 
dentalmente rovinato. Bene, io ho il 
programma “Copia per singolo dri¬ 
ve” che funziona regolarmente se 
copio deùdischetti da me preparati, 
ma che si inceppa o addirittura mi 
rovina il dischetto da copiare nel 
caso che quest’ultimo sia un pro¬ 
gramma acquistato pronto, e sia evi¬ 
dentemente protetto. Capisco per¬ 
fettamente l’esigenza di queste gran¬ 
di software-house di assicurarsi in 
tal modo dalla vendita di “copie- 
pirata”, ma per chi come me si vuole 
solo preparare una singola copia di 
sicurezza, è davvero un guaio. Avete 
qualche suggerimento da darmi in 
materia? 

2) Quando proponete il listato di 
un programma per il VIC 20, perchè 
non presentate anche regolarmente 
le righe da modificare affinchè il 
programma giri anche per il 
CBM64? (Il discorso naturalmente, 
vale anche per il viceversa). 

Arturo Zenorini 
Milano 

La pratica di proteggere dalle co¬ 
piature i dischetti contenenti pro¬ 
grammi venduti dalle varie organiz¬ 
zazioni commerciali è effettivamente 
molto diffusa e, ultimamente si sta 
affermando anche per le cassette inci¬ 
se. Questo sistema è abbastanza com¬ 
prensibile perchè chi investe cifre 
considerevoli (non dimentichiamo che 
programmi posti in vendita a poche 
migliaia di lire, costano normalmente 
parecchi milioni) non vuole ovvia¬ 
mente rischiare grosse perdite. D'al¬ 
tra parte, visto nell’ottica dell’acqui¬ 
rente, non è certo piacevole sapere 
che una errala manovra o un banale 
difetto meccanico può irrimediabil¬ 
mente rovinare un disco o una casset¬ 


ta regolarmente (e magari salata¬ 
mente) pagati. 

Cosa fare? Occorre innanzitutto 
osservare che i dischi con programmi 
protetti sono meno soggetti a rovinar¬ 
si in quanto il tempo di utilizzo e quin¬ 
di di usura è normalmente limitato; 
infatti dopo la lettura iniziale del pro¬ 
gramma da eseguire il disco non viene 
più utilizzato o, comunque, vengono 
effettuate delle letture e non scritture 
e cancellazioni che sarebbero molto 
più critiche per la sua integrità. Ma 
se, nonostante tutto, il disco dovesse 
risultare illeggibile non dovrebbero 
esserci problemi a farlo sostituire dal 
venditore. Ci risulta che le organizza¬ 
zioni di vendita più serie non fanno 
difficoltà in questo senso, per il soft¬ 
ware da loro venduto. 

Per quanto riguarda la compatibi¬ 
lità tra VIC 20 e C 64, viste le diffe¬ 
renze che esistono per quanto riguar¬ 
da i caratteri visualizzabili, la grafica 
e il suono, si tratterebbe ogni volta di 
riscrivere completamente il program¬ 
ma per l’altro VIC, e raramente il 
collaboratore che fornisce un pro¬ 
gramma per uno dei due Commodore 
utilizza anche l’altro. 


Programmazione dello Z80 

Sono un appassionato di infor¬ 
matica e seguo assiduamente la vo¬ 
stra rivista. 

Desidererei sapere se lo Z80 (micro- 
processore) usato dallo ZX81 ha le 
stesse caratteristiche del micropro¬ 
cessore dello Spectrum o, se varia, 
quali sono le differenze. 

Inoltre desidererei sapere da qua¬ 
le dei vostri libri (anche più di uno) 
potrei imparare il linguaggio mac¬ 
china dello Spectrum. 

Davide Scoglio 
Genova 

Sia lo ZX81 che lo ZX Spectrum 
della Sinclair utilizzano il micropro¬ 
cessore Z80 A, che si differenzia dallo 
Z80 solo per la frequenza del clock. 
Per imparare a programmare in lin¬ 
guaggio macchina le segnalo due testi 
molto interessanti editi dal Gruppo 
Editoriale Jackson: “Z80. Program¬ 
mazione in linguaggio assembly” di 
Lance A. Leventhal e “ Programma¬ 
zione dello Z80” di Rodnay Zaks. 


Dischi e cassette 

Ho deciso di acquistare un perso¬ 
nal computer, ma sono indeciso se 
utilizzare il registratore a cassetta o 
comprare un disk drive per memo¬ 
rizzare i dati. Finora ho ascoltato 
pareri discordanti e ho l’impressio¬ 
ne che molti negozianti consiglino i 
dischi anche per la grande differenza 
di prezzo esistente. 

Voi cosa ne pensate, tenendo con¬ 
to che sono un principiante e che, 
almeno inizialmente, penso di utiliz¬ 
zare il personal per programmare 
giochi e altre semplici applicazioni. 

Carlo Calvaruso 
Milano 


La scelta della unità di memorizza¬ 
zione di massa, disco o cassetta, è 
condizionata, oltre che dal costo, an¬ 
che dal tipo di utilizzo che si intende 
fare del calcolatore. Questo è il primo 
grosso problema: infatti chi si accosta 
per la prima volta al mondo dell’in¬ 
formatica personale non può sapere 
con precisione cosa fare con i! suo 
personal in quanto normalmente co¬ 
nosce poco delle sue potenzialità. 

Occorre tenere conto che le presta¬ 
zioni nei due casi sono sensibilmente 
differenti: la cassetta è lenta, spesso 
poco affidabile e soprattutto, dato 
che permette solo accessi sequenziali, 
non si presta ad essere utilizzata per 
gestire archivi di dati che prevedano 
inserzioni, cancellazioni e modifiche. 
Il disco supera tutte queste limitazio¬ 
ni in quanto è possibile accedere di¬ 
rettamente alle singole registrazioni, 
ma tutto questo ha una sensibile inci¬ 
denza sul prezzo di acquisto: mentre 
la soluzione cassetta può anche non 
costare nulla, in quanto spesso si può 
utilizzare un normale registratore 
audio, il disk drive ha un prezzo mini¬ 
mo di 500.000 lire e quindi, in certi 
casi, superiore a quello dello stesso 
personal. In definitiva, il consiglio 
che possiamo darle è quello di iniziare 
ad utilizzare il registratore a casset¬ 
ta. 

In seguito, se svilupperà delle appli¬ 
cazioni sofisticate, sarà lei stesso a 
rendersi conto dell'utilità del disco e a 
programmarne l’acquisto. 
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Routine in linguaggio 
—macchina per ZX81— 


16518 LD C.codice carattere 
LD D.O 
LD H.O 
LD B.32 
LD A. (16515) 

LD L.A 
LDE.A 
ADD HL.DE 
DJNZ —2 
LD A.(16514) 

LD E.A 
ADD HL.DE 
PUSH HL 
LD HL(D-FILE) 

INC HL 
POP DE 
ADD HL.DE 
LD A.(16516) 

LD B.A 
LD (HL).C 
INC HL 
DJNZ —3 
DEC HL 
LD DE.33 
LD A.(16517) 

LD B.A 
ADD HL.DE 
LD (HL).C 
DJNZ—3 

LDA. (16516) 

LDB. A 
DEC B 
DEC HL 
LD (HL).C 
DJNZ —3 
LD DE. —33 
LD A.(16517) 

LD B.A 
DEC B 
ADD HL.DE 
LD (HL).C 
DJNZ —3 

16587 RET 


14 —(numero codice prescelto) 
22 0 
38 0 
6 32 

58 131 64 
111 
95 
25 

16 253 
58 130 64 
95 
25 
229 

42 12 64 
35 

209 

25 

58 132 64 
71 
113 
35 

16 252 

43 

17 33 0 
58 133 64 
71 

25 

113 

16 252 
58 132 64 
71 
5 

43 

113 

16 252 

17 223 255 
58 133 64 
71 

5 


25 

113 

16 252 
201 


Routine 1. // programma disegna una cornice con un carattere a scelta. 


Utili routine 
per potenziare 
il vostro Sinclair 


di Carlo Cappelli 


C ome tutti i sinclairisti 
sanno, lo ZX81 è piuttosto 
lento nell’eseguire i pro¬ 
grammi BASIC. In molti casi si può 
superare questo inconveniente fa¬ 
cendo girare i programmi in FAST, 
cosa però impossibile quando è ne¬ 
cessario mantenere costante l’im¬ 
magine sullo schermo; per questo, 
spesso occorre rinunciare ad imma¬ 
gini complesse. 

Le sei routine in linguaggio mac¬ 
china presentate consentono di di¬ 
segnare istantaneamente diverse fi¬ 
gure geometriche utili in molte cir¬ 
costanze. 

Risultano anche utili ed interessanti 
per studiare il linguaggio macchina, 
infatti contengono solo le istruzioni 
più semplici e comprensibili da tutti. 
Per prima cosa devo ricordare un 
semplice programma per caricare in 
memoria i programmi in linguaggio 
macchina: 

1 REM 

il numero di punti verrà detto di 
volta in volta: 

10 LET A= 16518 
20 INPUT B 
30 PRINT B,A 
40 POKE A,B 
50 LETAMATI 
60 GOTO 20 

bisogna dare il RUN ed inserire i 
codici in decimale delle istruzioni; 
poi si deve cancellare il programma 
BASIC eccetto la REM. 

La prima routine (routine 1, lista¬ 
to 1) serve a disegnare un rettangolo 


con uno qualsiasi dei caratteri a di¬ 
sposizione in modo istantaneo; pos¬ 
so suggerire alcune delle applicazio¬ 
ni del programma: può servire per 
delimitare un campo di gioco o per 
evidenziare dei messaggi oppure per 
sviluppare dei programmi grafici 
con un rapido susseguirsi di rettan¬ 


goli di dimensioni e caratteri diversi. 

Per inserire questo programma 
bisogna scrivere 1 REM con almeno 
75 puntini (o qualsiasi altro caratte¬ 
re). Dopo aver inserito ordinata- 
mente i codici delle istruzioni ripor¬ 
tati a destra si devono fare delle PO¬ 
KE: 
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16518 — 

LD C.codice carattere 
LD D.O 
LD H.O 
LD A.(16515) 

LD E. A 
LD L.A 
LD B.32 
ADD HL.DE 
DJNZ —2 
LD A.(16514) 

LD E.A 
ADD HL.DE 
PUSH HL 
LD HL.(D-FILE) 
INC HL 
POP DE 
ADD HL.DE 
LD A.(16517) 

LD (16518).A 
LD A.(16516) 

LD B. A 
LD (HL).C 
INC HL 
DJNZ —3 
LD D.O 
LD E.A 
LD A.33 
SUB E 
LD E.A 
ADD HL.DE 
LD A.( 16518) 

DEC A 
RET Z 
LD (16518) 

16577 JR —25 


0 

14 —(numero carattere prescelto) 
22 0 
38 0 

58 131 64 
95 
111 
6 32 
25 

16 253 
58 130 64 
95 
25 
229 

42 12 64 
35 
209 
25 

58 133 64 
50 134 64 
58 132 64 
71 
113 
35 

16 252 
22 0 
95 

62 33 
147 
95 
25 

58 134 64 
61 
200 

50 134 64 
24 230 


POKE 16514, numero coordinata x 
spigolo del rettangolo in alto a sini¬ 
stra; 

POKE 16515, coordinata y spigolo 
del rettangolo in alto a sinistra; 
POKE 16516, lunghezza lato x; 
POKE 16517, (lunghezza lato y — 
1 ). 

ATTENZIONE: le dimensioni inse¬ 
rite devono essere compatibili con 
quelle dello schermo. Cioè: 


Parametro 

Valore limite 

Coordinata X 

MIN 0, MAX 


(32 - Lato X) 

Coordinata Y 

MIN 0, MAX 


(24 - Lato Y) 

Lato X 

MIN 1, MAX 


(32 - Coordinata X) 

Lato Y 

MIN I, MAX 


(23 - Coordinata Y) 


Si noti che il programma può senza 
ulteriori modifiche attivare le due 
linee dello schermo basso. 

Per attivare questa routine si deve 
inserire LET K=USR 16518 o 
RAND USR 16518. Per cambiare 
carattere grafico: POKE 16519, co¬ 
dice carattere grafico. 

Il secondo programma (routine 2) 
serve a riempire una parte rettango¬ 
lare di schermo con uno dei caratteri 
a disposizione; le dimensioni e il ver¬ 
tice di partenza sono come prima a 
piacere. Il programma precedente 
disegnava solo i bordi di un rettan¬ 
golo, questo riempie anche l’inter¬ 
no. Richiede una REM di almeno 75 
caratteri. 

Questo programma può risultare 
utile sia per preparare campi di gio¬ 
co sia per cancellare parti dello 
schermo in modo istantaneo sia per 
sviluppare idee grafiche. 

Anche in questo programma bi¬ 
sogna inserire adeguatamente le co¬ 
ordinate dello spigolo iniziale in alto 
a sinistra e le dimensioni dei lati nel¬ 
le stesse locazioni di memoria del 


Routine 2. // programma disegna un 
piacere. 

caso precedente; invece per cambia¬ 
re il carattere grafico bisogna poka- 
re in 16520 il codice del carattere 
desiderato. Per attivare la routine: 
RAND USR 16519 
Tra le tante applicazioni può ser¬ 
vire per far lampeggiare una grande 
porzione di schermo, operando co¬ 
me segue: 

Vogliamo far lampeggiare un imma¬ 
gine di 10 per 10 con lo spigolo in 
alto a sinistra di coordinate x=15 
y=8 


rettangolo pieno con un carattere a 


10 POKE 16514,15 
20 POKE 16515,8 
30 POKE 16516,10 
40 POKE 16517,9 
Se non si è già inserito durante l’im¬ 
missione del programma il codice 
128 (LD C. 128 14 128, in questo 
caso faremo un lampeggio bianco- 
/nero) allora: 

50 POKE 16520,128 
60 FOR 1=0 TO 
(durata lampeggio) 

70 AND USR 16519 
















Figura 1. Poligono di quattro lati con torsione su un’as¬ 
se. 


Figura 3. Poligono di 40 lati con torsione su entrambi 
gli assi. 


80 POKE 16520,0 
90 FOR G=0 TO 5 
100 NEXT G 
110 RAND USR 16519 
120 POKE 16520,128 
130 NEXT I 

Il programma successivo (routine 3) 
serve a disegnare sullo schermo un 
disegno precedentemente compo¬ 
sto. Richiede una REM di almeno 75 
caratteri. 

Affinchè il programma possa 
stampare il disegno è necessario che 
quest’ultimo venga precedentemen¬ 
te inserito in memoria; il primo byte 
di questo spazio di memoria inizia 
dalla locazione 20000 (come è fissa¬ 
to nell’istruzione LD HL.20000) ma 
può essere cambiato facendo: 

LET M=(locazione di memoria) 
POKE 16547, M-INT (M/256)x256 
POKE 16548, INT (M/256) 
L’inconveniente di fissare quel valo¬ 
re fuori dall’area di programma o 
delle variabili consiste nel fatto che i 
dati fuori da queste aree non vengo¬ 
no caricati su cassetta durante la 
SAVE, perciò tutte le volte che si 
carica il programma bisogna carica¬ 
re a parte il disegno che deve quindi 
essere memorizzato in qualche strin¬ 
ga. 

Per risolvere l’inconveniente è 
consigliabile inserire il disegno nella 
REM stessa facendola non più di 75 


caratteri ma di 200-300 o più a se¬ 
condo delle dimensioni del disegno 
ponendo M=16580. 

Come nei casi precedenti bisogna 
inserire le dimensioni dell’immagine 
e le coordinate dello spigolo in alto a 
destra. Secondo la solita procedura 
il listato 3 riguarda il caso in cui si 
lasci intatto il valore di 20000 come 
inizio dell’area destinata al disegno 
o lo si sostituisca con valori ecceden¬ 
ti l’area del programma, il 2° caso è 
se si allunga la REM e si inserisca il 
valore M = 16580 nei byte, 16547 e 
16548. 

1° CASO 

50 DIM A$(LUNGHEZZA X 
x LUNGHEZZA Y) 

60 FOR G=1 TO LEN A$ 

STEP LUNG X 
70 INPUT A$(G TO 
G+LUNG X) 

80 NEXT G 

90 FOR G=1 TO LEN A$ 
STEP LUNG X 
100 POKE 19999+G, 

CODE A$(G) 

110 NEXT G 

120 RAND USR 16519 


2° CASO 

50 DIM A$ (LUNGHEZZA X) 
60 FOR G=1 TO 
LUNGHEZZA Y 
70 INPUT A$ 

80 FOR F=1 TO LEN A$ 

90 POKE M+LEN 
A$x(G—1)+F—1, 

CODE A$ (F) 

100 NEXT F 
110 NEXT G 
120 RAND USR 16519 

È da notare che nel 1° caso, dopo 
aver composto il disegno, bisogna 
lasciare le linee 90 100 110 per potere 
caricare il programma da cassetta e 
riscrivere il disegno a partire dalla 
locazione 20000 e bisogna anche evi¬ 
tare di dare RUN o CLEAR per non 
cancellare la stringa A$; nel secondo 
caso poiché il disegno è stabilmente 
scritto nella REM si può cancellare 
l’intero programma di caricamento. 
Tra le tante utilità di quest’ultimo 
programma ci può essere quella di 
comporre dei semplici cartoni ani¬ 
mati facendo susseguire vari disegni. 
Ad esempio possiamo far susseguire 
10 o più immagini di dimensioni 10 x 



Figura 2. Poligono di 12 lati con torsione su due assi. 
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16518 

_ 

0 


LD HL.(D-FILE) 

42 12 64 


INC HL 

35 


LD D.O 

22 0 


LD A.(16515) 

58 131 64 


LD E.A 

95 


LD B.33 

6 33 


ADD HL.DE 

25 


DJNZ —2 

16 253 


LD A.(16514) 

58 130 64 


LD E.A 

95 


ADD HL.DE 

25 


EX DE.HL 

235 


LD A.(16517) 

58 133 64 


LD (16518).A 

50 134 64 

16546 

LD HL.20000 (vedi poi) 

33 32 78 (vedi poi) 


LD A.(16516) 

58 132 64 


LD C.A 

79 


LD1R 

237 176 


PUSH HL 

229 


PUSH DE 

213 


LD E.A 

95 


LD A.33 

62 33 


LD D.O 

22 0 


POP HL 

225 


SUB E 

147 


LD E.A 

95 


ADD HL.DE 

25 


EX DE.HL 

235 


POP HL 

225 


LD A.(16518) 

58 134 64 


DEC A 

61 


RET Z 

200 


LD (16518).A 

50 134 64 

16576 

JR —28 

24 227 


Routine 3. Il programma ripristina automaticamente un’immagine video 
spostala in un’altra zona di memoria. 


LD HL (VARS) 

42 16 64 

LD A.HL 

126 

INC HL 

35 

CP 92 

254 92 

JR NZ —5 

32 250 

LD A.HL 

126 

CP 4 

254 4 

JR NZ —10 

32 245 

LD BC.4 

1 4 0 

INC HL 

35 

INC HL 

35 

LD DE.16514 

17 130 64 

LDIR 

237 176 

JP 16519 

195 135 64 

o se lo si combina con il primo programma che inizia a 16518: 

JP 16518 

195 134 64 


Routine 4. Il programma è impiegato come base per i successivi programmi. 


10 : 

10 POKE ... 

20 ... OPERARE COME NEI 

CASI PRECEDENTI 
30 ... 

40 ... 

50 FOR G=1 TO 10 (numero im¬ 
magini) 

60 DIMAS (10) 

70 FOR D=1 TO 10 (lunghezza 
disegno) 

80 INPUT A$ 

90 FOR D=1 TO 10 (larghezza 
disegno) 

100 POKE 19999+lOx 

(D—l)+F+100x(G—1), CO¬ 
DE A$(F) 

110 NEXTF 
120 NEXT D 
130 NEXT G 

140 FOR G=20000 TO 21000 
STEP 100 

150 POKE 16547,G—INT 
(G/256)x256 

160 POKE 16548,INT (G/256) 

170 FOR F=1 TO 4 per rallentare 
il susseguirsi delle immagini 
180 NEXT F 
190 RAND USR 16519 
200 NEXT 

Bisogna ricordare che il piccolo car¬ 
tone animato, così, com’è impostato 
non viene caricato su cassetta a me¬ 
no che non lo si trasferisce in una 
stringa; ad esempio si può dimensio¬ 
nare un A$ (10,10, 10) inserendo: 45 
DIM A$ (10, 10, 10) 80 INPUT A$ 
(G, D) 100 POKE ..., A$ (G,D,F) e 
cancellando la riga 60. 

11 programma successivo (routine 4) 
serve per risparmiare la fatica di fare 
delle frequenti POKE e inserire i da¬ 
ti tramite una stringa W$ di 4 carat¬ 
teri, i primi due per le coordinate, gli 
altri due per le dimensioni dell’im- 
magine. 

Il programma può essere inserito 
dopo i programmi fin qui presentati 
allungando la REM iniziale di alme¬ 
no una trentina di caratteri; basta 
sfruttare la routine di caricamento 
presentata all’inizio e sostituire la 
linea 10 con: 10 LET A = 16590 e 
inserire i codici della routine aggiun¬ 
tiva; fatto questo basterà scrivere le 
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Routine 
in linguaggio 
macchina per ZX81 


X REM & ?ws B : *» fi U*»RND?7^4.; ( 
CLEBR ifeND?; FRST ESRND7SGN jU| 
RHNDLpSRN p ? 77 f UNPLOT - 7Y5»? 

. US^NDXCOS M^RND/ NEL! .. . 

Ì0 " LET * K=ÙSR * 165.13 

Listato 1. Programma della routine 1. 


X PSK = - fi 

LEfifi UfcRNDT. “fi 
hiD??7 f UKPLC. 

OT U'SpND TS F7 t UN-PLG 
®RND7l . 7 ( UNPLOT TRN 


« c 

JERND7SGN U*Sfi 
ri 5 U 1RND7; ? < UNPJ- 
‘ } TO COPY U 


a© LET K =USR Ì6513 


Listato 2. Programma della routine 2. 


1 REhì 
CLERR 
LFSRND? G56UES 
PRINT B ?, POP 
%RNO/ STOP .. 


tTT*l**E£RND7- U«RNDV5j " 
L|gRN£)?i FOR U jjRNDM%RN D S 4- 7 

- *, FRST STR$ ?Y5- L 

LPRINT U*>»RMDXCOS V 


10 PRXNT "LRRGHEXZR DISEGNO 7' 
a® INPUT L.X 
30 POKE 1S5I6,LX 

■4.0 PRINT “LUNGHEZZA DISEGNO 7" 
50 INPUT i_Y 
S© POKE 16517,LY 
70 DIM fi*(LY,LX> 

SO PRINT "X DI PRRTENZfi" 

90 INPUT X 
100 POKE 16514., X 
110 PRINT "Y Dì PflRTENZP" 

120 INPUT Y 
130 POKE 16515.V 
140- -PRINT 

150 PRINT "COMPONI IL. DISEGNO L 
ZNEfi PER LINER" 

155 pause sa© 

156 OLS 

16© PRINT RT Y,X; 

17© FOR lai TO LY 
150 INPUT fi* il) 

13® PRINT TRB X;fi$(I) 

20© FOR J-l TO LX 

£10 POKE 19993-t-LX* ( 1-1) +U, CODE 
RJII.J) 

£20 NEXT U 
230 NEXT I 
24-0 CLS 

£50 PRINT "PREMI N..'L PER UEOERP 
IL. DISEGNO” 

£50 INPUT U£ 

270 CLS 

S60 LET K=U5R 16512 


Listato 3. Programma della routine 3. Il BASIC è 
quello del primo caso e permette di comporre i disegni 
fuori dalla zona del programma. 


• 1 - REM C-inWDMBINKEY-•MUINWEYjfcTSF 
MIINKEYSMINKEY $INKEYJTRN 
J*LP>jr®': ? K •Y~S7y.XLNr ~*y^UL>s :~-RE 
4? LN JjRND/fYULN \PNDU JRND^U—RN" 
Sr?K"V E7YXLNÈRND/ : RETURN 4j L 
"SfiND/fTUL P~WrrrLr.'^j~r }l p ?vy •muihrèY ; 
1Y MINKCY $ INKEY*?MfcRNDPt3INKEY Sf- 
-INKEY*- VJBe K uNPLOT g ?M/INKEY 
?M - INKEY $ETPRND6 f INKEY &* a =LN 33" £ 
Y?bi RETURN £S-£3SM/INKEYìU ( INKE 
SXM(INKEYSU) INKEY*XMì INKEYS-O M/. 
YKSYSU(INKEY *XM(INKEY*U) INKEY$ t 
> INKEYSU&sRNDXCOS MfesRND77IMKEY' $E 
AND» 77 ) fcPND GOSUB jigTSRND . 


10 LET US="2=UD" 
20 RfiND USR 1S720 


Listato 4. Programma della routine 5. Incorpora anche 
la routine 4: funzione DRA W. 


fi Et 


_ .... feV =Ì £ 1 ?;kEY*MUINKEY *Tf 

K Z X NK.E' *MIWX.EV S TNX EY4TPW UURND 
*£<KDB7>V’Y -si"' XL. N r vRND / : RETUR- 



iHC 


I YUU’i V' NDU |RND7U» 


: s»R’r ‘K 

'XLN SRND/: RETURN 4* : ' 
YUL.N PRNDTÌSSsbTTY MUTNKE'" 
4KEY .<*• INKEY $7MÌ»RNDM3 INKEY * 

.. I-V 5&P K UNPLOT I ?H/INKEY 
•’H- XNKEYje^PNDS (INKEYJ® ÌLH @INr 
SY&eeYZsa RETURN WS ~2i,#M/INKEYSU 
INKEY*XM < INKEY*UÌ INKEY SXM) INKEY ' 
M/ INKEY $U t INKEY SXM < INKEY SU ) INr 
zY$ M) INKEY SUfcPNDXCOS MfcRND ? ? I.Uk 
TY?e ÌRtlDs 77) gpfi-ND GGSUeHBTSRND - - 



r »* i ' 

10 LEI U$ = CHRJ 0-rCHRS S+CHRS 
0+CHR* 20 

15 POKE 16303,12© 

3® LET K =USR 1672© 


Listato 5. Programma della routine 6; contenuta alla 
REM della linea 5. La linea ! contiene la routine 5. 


POLIGONI 

1 REM * "M+HB INKEY SMU INKEY STPlN 
MI INKEY $M IKK EY 5 INKEY ÌT PN U*SR N D 7 

- -'XLN VìND ': RETURN. 

L.-N ■ ^èRNDU- jlRNC ?Ui«f -v 
AND / . RETURN L. 

tND ?SSs*7 ?Y MU INKEY 
'.EY S7MSRHDH3INKEY *F 
t UNPLOT 8 ?M/ IMKE' i 

7M-INKÈY *E^ND5 t INKEY** 3 ®|_^ glNr. 

Ey®S:.Yl»-i- RETURN < S -£uBM / INKEY SU 
INKEY*XM « INKEY SU) INKEY*XM> INKEY 
x 5 M/ INKEY SU ( INKEY $ M ! INKE"' @Uì IN • 
EY SXM) INKÉY SUSjRNDXCOS MLRND??I>:>. 
EY SE (RND* 77:ifcRND GOSUS S?SRND . 


5 REM S2RND77YFS7 : RETURN BS 

- RETURN BS*£C 




1© REM "POLIGONI REGOLARI E fiL 
TRC ” 

2© PRXNT "NUMERO ERTI” 

30 INPUT Kt 
4.-3 DIM RfU + 1,21 
50 LET R=2ffi 
60 LET X =345 
70 LET Y =21 
SO LET Cai 

.52 PRINT 'IN CAMPO INUER3D" 

*53 INPUT fi® 

85 CLS 

«87 IF fi$=."SI" THEN GOTO 250 

*0© POKE 16833,126 

100 FOR 1=0 TO 2®PI STEP 2*PI/ 

110 LET RtC.l)oX+RfCOS I 

1©® LET R t C .. S> *Y+R*S IN T 

130 LET C=C-ì 1 

14.® NEXT I 

153 LET fi lu + 1, 15 =fi I 1,1) 

160 LET fitU+1,2)=RS1,25 
170 FOR Is.fi TO U + l 
I&.S LET U*«CHR* Ptl-i . 1! 4-CHRt 
CI-1,2) -VCHR* ft(I,lS+CHSS PII,®) 
13® RfiND USR 16720 
20® NEXT I 

ai® stop 

«SE® FOR tal T0 22_ 

*230 POKE 18833,64- 
*29© GOTO 10© 


Listato 6. BASIC modificato per la generazione dei 
poligoni ritorti. 
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Routine 
in linguaggio 
macchina per ZX81 


coordinate e le dimensioni richieste 
nella stringa W$. Bisogna tener pre¬ 
sente che tutti i numeri vanno scritti 
nella stringa con i caratteri corri¬ 
spondenti; quindi se vogliamo inse¬ 
rire un disegno con lo spigolo in alto 
a sinistra di coordinate X= 14 Y=0 e 
di dimensioni 16x21 scriveremo: 
LET W$=”: (=” infatti al numero 
14 corrisponde il carattere: 
al numero 0 corrisponde il carattere 
(spazio); 

al numero 16 corrisponde il caratte¬ 
re; 

al numero 20 corrisponde il caratte¬ 
re =. 

Si può operare in un altro modo: 
LET W$=CHR$ 14 + CHR$ 0 + 
CHR$ 16 + CHRS 20 
Le applicazioni di quest’ultima rou¬ 
tine sono molte, posso solo suggeri¬ 
re che con piccole modifiche può 
leggere in qualsiasi stringa che sia in 
memoria. 

Chiunque volesse provare a inserire 
valori sbagliati in questa come nelle 
precedenti routine o a operare in 
modo errato manderebbe lo ZX81 
in tilt e per resettarlo sarebbe co¬ 
stretto a staccare e riattaccare la spi¬ 
na della corrente con la conseguente 
cancellazione di tutto quanto vi era 
in memoria. La stringa W$ deve es¬ 
sere perciò di 4 caratteri i cui valori 
devono essere congrui con le dimen¬ 
sioni dello schermo; inoltre la strin¬ 
ga W$ deve essere scritta e messa in 
memoria prima della chiamata alla 
routine in linguaggio macchina: 
LET W$=”: (=” 

RAND USR 16590 

Un esempio di utilizzo di questa 
routine lo troviamo nel programma 
seguente (routine 5). Questo pro¬ 
gramma serve a congiungere due 
punti dopo aver inserito le loro co¬ 
ordinate dotando così lo ZX81 di 
una funzione nuova e molto utile, 
equivalente al DRAW di altri com¬ 
puter. 

Richiede una REM di almeno 250 
caratteri. 

Per usufruire del programma è 
necessario inserire le coordinate dei 
due punti da unire nella stringa W$ 


Routine 5. Funzione DRA W. 


16518 

LD (16679).A 

50 39 65 


LD (16698).A 

50 58 65 


RET 

201 


LD (16686).A 

50 46 65 


LD (16705).A 

50 65 65 


RET 

201 

16532 

LD A.(16516) 

58 132 64 


LD D.A 

87 


LD A.(16514) 

58 130 64 


SUB D 

146 


LD D.A 

87 


JR NC 11 

48 11 


LD A.O 

62 0 


SUB D 

146 


LD D.A 

87 


LD A.61 

62 61 


CALL 16518 

205 134 64 


JR14 

24 14 


CP 0 

254 0 


JR NZ 5 

32 5 


CALL 16518 

205 134 64 


JR 5 

24 5 


LD A.60 

62 60 


CALL 16518 

205 134 64 


LD A.(16517) 

58 133 64 


LD E.A 

95 


LD A.(16515) 

58 131 64 


SUB E 

147 


LD E.A 

95 


JR NC 11 

48 11 


LD A.O 

62 0 


SUB E 

147 


LD E. A 

95 


LD A.61 

62 61 


CALL 16525 

205 141 64 


JR 14 

24 14 


CP 0 

254 0 


JR NZ 5 

32 5 


CALL 16525 

205 141 64 


JR 5 

24 5 


LD A.60 

62 60 


CALL 16525 

205 141 64 


LD A.E 

123 


CP D 

186 


JR C 9 

56 9 


LD E.D 

90 


LD D.A 

87 


LD A.O 

62 0 


LD (16698).A 

50 58 65 


JR 5 

24 5 


LD A.O 

62 0 


LD (16705).A 

50 65 65 


LD A.D 

122 


LD (16514).A 

50 130 64 


LD (16671).A 

50 31 65 


LD ( 16667).A 

50 27 65 


LD D.2 

22 2 


LD B.O 

6 0 


SUB D 

146 


INC B 

4 


jr NC —3 

48 252 


DEC B 

5 


LD A.B 

120 


LD (16664).A 

50 24 65 


LD A.E 

123 


LD (16662).A 

50 22 65 
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Routine 
in linguaggio 
macchina per ZX81 


Seguito routine 5. 


16679 


16720 


16744 


LD HL.(16516) 

42 132 64 

LD (16656);HL 

34 16 65 

LD BC.O 

1 0 0 

CALL 2994 

205 178 11 

LD E.O 

30 0 

LD A.O 

62 0 

ADD A.E 

131 

CP 0 

254 0 

JR C 22 

56 22 

LD E.O 

30 0 

SUB E 

147 

LD (16664).A 

50 24 65 

LD A.(16656) 

58 16 65 

NOP 

0 

LD (16656).A 

50 16 65 

LD A.(16657) 

58 17 65 

NOP 

0 

LD (16657).A 

50 17 65 

JR 17 

24 17 

LD (16664).A 

50 24 65 

LD A.(16656) 

58 16 65 

NOP 

0 

LD (16656).A 

50 16 65 

LD A.(16657) 

58 17 65 

NOP 

0 

LD (16657).A 

50 17 65 

LD A.(16514) 

58 130 64 

DEC A 

61 

RET Z 

200 

LD (16514).A 

50 130 64 

JP 16655 

195 15 65 

LD HL.(VARS) 

42 16 64 

LD A.(HL) 

126 

INC HL 

35 

CP 92 

254 92 

JR NZ —5 

32 250 

LD A.(HL) 

126 

CP 4 

254 4 

JR NZ —10 

32 245 

LD BC.4 

1 4 0 

INC HL 

35 

INC HL 

35 

LD DE.16514 

17 130 64 

LDIR 

237 176 

JP 16532 

195 148 64 


o direttamente nelle usuali locazioni 
di memoria (16514-17). Usando la 
stringa si fa: W$=Xa+Ya+xB+yB 
dove Xa=carattere il cui numero è 
uguale alla coordinata X del punto 
di partenza Ya=come prima ma per 
la Y del punto di partenza xB e yB = 
coordinate del punto finale. 
Vogliamo ad esempio unire i punti 
Xa=30 Ya=20 xB=60 yB=41. 


10 LET W$=”2=WD” 

20 RAND USR 16720 

Bisogna anche tener presente che il 
programma non stampa il punto di 
partenza, quindi dovrà essere pilo¬ 
tato a parte. 

Questo programma presenta alcune 
carenze tra cui quella di non poter 
cancellare ciò che precedentemente 


è stato tracciato (non vi è cioè la 
chiamata alla routine di UNPLOT), 
inoltre il tempo di esecuzione è solo 
leggermente inferiore al tempo di 
plotaggio in BASIC, questo perchè 
la fase di stampa viene compiuta 
mediante la stessa routine della 
ROM che è usata dal BASIC. 

Per superare questi piccoli incon¬ 
venienti si deve ricorrere all’utilizzo 
di una routine autonoma di plotag¬ 
gio; ed è appunto questo l’argomen¬ 
to del prossimo programma (routi¬ 
ne G). 

Bisogna anche tener presente che 
questo programma può essere usato 
indipendentemente da quello prece¬ 
dente e che la differenza con i co¬ 
mandi PLOT/UNPLOT della ROM 
consiste nel fatto che la stampa non 
cancella il testo (cosa che può risul¬ 
tare anche comoda), cioè se sul tra¬ 
gitto di un segmento da plottare vi è 
una scritta questa non viene cancel¬ 
lata. 

In breve le funzioni che il pro¬ 
gramma svolge consistono in: 

1°) dividere per due le coordinate del 
punto da plottare; 

2°) stabilire la locazione di memoria 
per la stampa; 

3°) analizzare il carattere che vi è in 
quella locazione di memoria; 

4°) stabilire se si deve plottare o un- 
plottare; 

5°) ricavare il carattere da stampare 
e stamparlo in quella locazione. 

Se si vuole sfruttare questa routi¬ 
ne insieme al programma preceden¬ 
te è necessario scrivere dopo la pri¬ 
ma REM una seconda Es. 5 REM di 
200 puntini inoltre la prima REM 
non deve superare di oltre 30 carat¬ 
teri il valore precedentemente indi¬ 
cato di 250, cioè la prima REM non 
deve superare ì 280 caratteri. Se ave¬ 
te seguito le indicazioni precedenti 
(la prima REM di 250 caratteri) non 
c’è alcun problema altrimenti biso¬ 
gna verificare che il valore di PRINT 
PEEK 16511, sia inferiore a 27; fatto 
ciò bisogna riscrivere la solita routi¬ 
ne di caricamento con 10 LET 
A= 16801 e poi inserire i codici della 
routine 6. 
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16801 

0 


RET NZ 

192 

— 

0 


LD A.(HL) 

126 

— 

128 


SUB 135 

214 135 

LD H.B 

96 


LD E.A 

95 

LD L.C 

105 


LD A.135 

62 135 

LD A.43 

62 43 


SUB E 

147 

SUB H 

148 


LD (HL).A 

119 

RRCA 

15 


RET 

201 

LD C.O 

14 0 


INC HL 

35 

CP 128 

254 128 


LD A.(HL) 

126 

JR C 4 

56 4 


ADD A.128 

198 128 

INC C 

12 


CP C 

185 

INC C 

12 


JR Z 3 

40 3 

SUB 128 

214 128 


DJNZ —8 

16 247 

LD ( 16801). A 

★ 50 161 65 


RET 

201 

LD A.L 

125 


CP 128 

254 128 

LRCA 

15 


JR C 3 

56 3 

CP 128 

254 128 


ADD A.E 

131 

JR C 3 

56 3 


JR 1 

24 1 

INC C 

12 


SUB E 

147 

SUB 128 

214 128 


JR—36 

24 219 

LD D.O 

22 0 

16926 

— 

0 

LD E.A 

95 



1 

LD HL.(16396) D-FILE 

42 12 64 



0 

ADD HL.DE 

25 



6 

LD A.(16801) 

★ 58 161 65 


C 

2 

LD E.A 

95 


O 

4 

INC HL 

35 


D 

135 

LD B.33 

6 33 


I 

133 

ADD HL.DE 

25 


C 

131 

DJNZ —2 

16 253 


I 

129 

LD ( 16801).HL 

★ 34 161 65 



2 

LD B.9 

6 9 


c 

0 

LD E.C 

89 


A 

134 

LD C.(HL) 

78 


R 

1 

LD HL. 16926 

★ 33 30 66 


A 

4 

ADD HL.DE 

25 


T 

135 

DJNZ —2 

16 253 


T 

5 

LD E.(HL) 

94 


E 

131 

LD B.8 

6 8 


R 

130 

LD A.(16803) 

★ 58 163 65 


I 

4 

CP 64 

254 64 



0 

JR Z 33 

40 33 


G 

1 

INC HL 

35 


R 

2 

LD A.(HL) 

126 


A 

135 

CP C 

185 


F 

134 

JR Z 3 

40 3 


I 

133 

DJNZ —6 

16 249 


C 

3 

RET 

201 


I 

132 

CP 128 

254 128 



135 

JR C 3 

56 3 



0 

SUB E 

147 



1 

JR 1 

24 1 



2 

ADD A.E 

131 



3 

LD HL.(16801) ' 

★ 42 161 65 



4 

LD (HL).A 

119 



5 

LD A.E 

123 



6 

CP 135 

254 135 

16962 


7 


Routine 6. Flottaggio migliorato. 
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Routine 
in linguaggio 
macchina per ZX81 


Dump 1. Lista dei codici decimali della routine I. Da impiegare 
per introdurre i codici e controllarli. 


16518 

a 

14. 

ISSI 2 

a 

a© 

5 652© 

a 

22 

56521 

ss 

© 

16523 

a 

3© 

16523 

a 

0 

16524 

a 

6 

16525 

ss 

32 

165£S 

a 

58 

16527 

ss 

131 

16528 

ss 

64 

16529 

ss 

111 

1653© 

ss. 

95 

16531 

a 

25 

16532 

a 

16 

.? 6533 

ss 

253 

16534- 

ss 

SS 

16535 

a 

138 

1S53S 

a 

64 

16537 

a 

95 

15536 

a 

25 

16S39 

a 

229 

16540 

a 

42 

16S4-1 

a 

12 

1654.2 

a 

©4 

1654-3 

a 

35 


16544 

a 

283 

16545 

a 

25 

16546 

a 

SS 

16547 

a 

132 

16548 

a 

64 

2-6549 

a 

71 

3-6558 

ss 

113 

15551 

ss 

35 

16552 

ss 

16 

16553 

a 

252 

16554 

a 

43 

16555 

a 

17 

16556 

a 

33 

16557 

a 

0 

16558 

a 

56 

16559 

a 

133 

16560 

a 

64 

16561 

a 

71 

16562 

a 

25 

16563 

a 

113 

16564 

a 

16 

18565 

a 

252 

16566 

a 

se 

16567 

a 

132 

15563 

a 

64 

16569 

a 

71 

1657® 

a 

5 

x6571 

ss 

A3 

16572 

ss 

113 

15573 

a 

16 


Per collegare questo programma a 
quello precedente bisogna trasfor¬ 
mare la CALL 2994 in C ALL 16804, 
facendo due poke: 


15574- = ass 
15575 - 17 

16575 a 223 
15377 = 255 
15573 = SS 

XS572 = 153 

35553 = SA 


POKE 16660, 65 POKE 16659,164 
Per verificare la nuova routine basta 
utilizzare lo stesso programma di 
prima, 10 LET W$= ... 20 RAND 


issai =7i 

15552 = 5 

15553 = 25 

3.6564 = 113 

1S5SS = 1& 

n . C.KTSS-CÌ _ 3K2 

16 Si. 7 = 231 


USR 16720 ma bisogna aggiungere 


per plottare: 

5 POKE 16803,128 


per unplottare: 

5 POKE 16803,64 
Se si dovesse utilizzare il program¬ 
ma in altro modo o in altre locazioni 
di memoria è necessario modificare i 
codici con l’asterisco. 

Ad esempio se la si vuole utilizzare 
per plottaggi vari la si può porre 
nella prima REM; allora il program¬ 
ma avrebbe come punto di partenza 
la locazione 16514 di conseguenza 
dove troviamo 16801 dobbiamo so¬ 
stituire 16514; cioè al posto di 161 65 
dovremo inserire 130 64. 

Andrà cambiato anche il valore di 
inizio dei codici dei caratteri grafici 
che ora ha un valore di 16926 e se¬ 
guendo l’esempio precedente,dovrà 
assumere il valore di 1664 (al posto 
di 30 66 si dovrà scrivere 65). 

Inoltre al posto delle istruzioni 
iniziali LD H.B e LD L.C si dovrà 
scrivere LD HL.(16514) 42 130 64 


Dump 2. Lista dei co¬ 
dici della routine 2. 


16318 


0 

16519 

a 

.14 

16520 

a 

9 

1652:1 

a 

22 

16522 

ss 

0 

16523 

s: 

38 

15524 

a 

8 

16525 

a 

SS 

15526 

a 

131 

16527 

a 

64 

!.65£S 

a 

ys 

16529 

a 

111 

16530 

— 

6 

15531 

a 

32 

16532 

a 

25 

16533 

— 

16 

18534 

a 

253 

16535 

= 

53 

16586 

— 

138 

16537 

a 


16536 

a 

95 

16539 

a 

25 

1.6548 

a 

2£c> 

1554 1 

a 

42 

15542 

a 

12 

16543 

=; 

64 

15544 

a 

35 

i 5 5 4 '5 

a 

209 

15545 

a 

25 

16547 

a 

sa 

16546 

3 

133 


16 


Seguito dump 2. 

16542 

SS 

©4 

lese© 

m 

53 

16551 

ss 

134 

16552 

a 

64 

1.5563 

ss 

se 

16554 

ss 

.132 

15555 

ss 

64 

15556 

ss 

71 

16567 

s: 

113 

16558 

a 

35 

16559 

ss 

16 

1656© 

a 

252 

165© 1 

ss 


16562 

S2 

© 

16563 

a 

95 

16564 

ss 

62 

15565 

ss 

33 

1656© 

ss 

147 

16567 

a 

95 

16566 

ss 

25 

16569 

a 

5 e 

16570 

si 

134 

16571 

ss 

64 

16572 

ss 

61 

16573 

a 

20© 

16574 

a 

se 

16575 

a 

134 

1657© 

a 

84 

16577 

c 

24 

1657S 

ss 

230 


Dump 3. Codici della 
routine 3. 


DISEGNI 

Ì655.0 » 

© 

16519 

ss 

42 

15520 

SS 

12 

18521 

16522 

ss 

64 

ss 

35 

16523 

~ 

22 

16524 

ss 

0 

16526 

ss 

SS 

16526 

ss 

13:1 

16527 

a 

£>■& 

16523 

ss 

95 

18522 

1653® 

ss 

0 

a 

33 

16531 

Si 

25 

18532 

a 

lo 

16533 

rr 

253 

15534 

ss 

SS 

16535 

a 

13© 

18536 

a 

£4 

16537 

n 

95 

16S3S 

a 

26 

16539 

ss 

£-35 

16540 

Si. 

SS 

1654.1 

•ss 

133 

18542 

a 

54 

16543 

a 

59 

18544 

a 

134 

-5SAS 

ss 

64 

1654 6 

ss 

33 

1654 7 

ss 

32 

1S5AS 

a 

76 

16549 

ss 

sa 

1655© 

a 

3.32 

tessi 

a 

64 

18552 

a 

73 

16553 

ss 

237 

16354 

ss 

1~6 

16553 

ss 

229 

16555 

ss 

213 

16557 

a 

95 

1655S 

a 

62 

18559 

a 

33 

18560 

a 

22 

15561 

a 

© 

16562 

a 

225 

16563 

a 

147 

4.6554 

a 

2S 

1-5565 

ss 

£5 

16566 

•ss 

23S 

16567 

ss 

225 

tesse 

a 

se 

tesse 

a 

134 

1657© 

a 

64 

16571 

a 

6 i 

16572 

a 

203 

16573 

a 

se 

16574 

a 

134 

>.6575 

a 

64 

1S576 

ss 

£4 

ì 6577 

a 

227 


Dump 4. Codici della routi¬ 
ne 5 che comprende anche la 
4. Permette di implementare 
la funzione DRA W. 


..'MICNt 
£>i a pum 


155 3.8 

a 

se 

16519 

a 

39 

tesse 

ss 

65 

15521 

ss 

50 

1S5S2 

'.s. 

58 

16523 

ss 

65 

16 SS 4 

SI 

£81 

16525 

a 

30 

16526 

a 

46 

16527 

a 

65 

tesse 

a 

5© 

16529 

ss 

65 

16530 

a 

65 

16531 

a 

201 

16532 

a 

58 

16533 

a 

132 

16534 

a 

64 

16535 

a 

87 

15536 

a 

58 

16537 

a 

13© 

16S3S 

ss 

©4 

16539 

3 

146 

1654© 

a 

87 

1654 1 

a 

46 

16542 

a 

11 

16543 

ss 

©2 

16544 

a 

® 

16545 

a 

146 

16546 

a 

©7 

16547 

ss 

62 

iute 

a. 

ss 

©1 

20S 

16050 

a 

134 

tessi 

SS 

64 

16552 

a 

24 

16553 

a 

14 

16SS4 

a 

254 

165SS 

ss 

0 

16556 

16557 

a 

a 

r 

16558 

a 

205 

16559 

a 

134 

1.856® 

a 

64 

16551 

a 

24 

18562 

a 

5 

16563 

a 

©2 

18564 

a 

60 

16565 

a 

205 

16566 

a 

134 

16 se 7 

ss 

64 

16568 

s 

58 

16569 

& 

133 

16570 

a 

64 

16571 

a 

95 

16572 

T3 

58 

16573 

a 

131 

16574 

a 

64 

15575 

a 

147 

16576 

a 

95 

16577 

a 

48 

16578 

a 

11 

16S79 

a 

62 

1658© 

a 

© 

16581 

a 

147 

16582 

a 

95 

16583 

a 

62 

16584 

a 

61 

ÌS5S5 

a 

205 

16586 

a 

141 

16587 

a 

64 

16588 

a 

24 

16589 

a 

14 

1659® 

ss 

254 

16591 

ss 

© 

16592 

a 

32 

16593 

3 

5 

16594 

3 

205 

16595 

a 

141 

1BS06 

a. 

64 

10007 

a 

24 

16598 

vr- 

5 

16599 

3 

62 

16500 

a 

©0 

16501 

a 

2©5 

16602 

a 

141 

16503 

a 

64 

16604 

a 

123 

16605 

a 

186 

i 8606 

a. 

5© 

3.5607 

a 

9 

16608 

a 

9© 

18609 

a 

87 

1661© 

a 

©2 

































‘-CUI TflOSvì 
■ i-3L ..GRRT O 


168© 1 

= 

<3 

16802 

a: 

0 

3 6803 

a 

128 

x S Sv- 4- 

=; ' 

56 

168B5 

s 

105 

16806 

s 

62 

16807 

ss 

43 

16808 


148 

3.6809 

ss 

15 

X6810 

ss 

14 

1SS5.1 

z 

e 

16812 

ss 

254 

16813 

=s 

128 

16814- 

a 

56 

16815 

a 

4 

16818 

ss 

12 

16817 

m 

12 

i 6818 

— 

214 

16819 

ss 

128 

16820 

— 

50 

16321 

ss 

161 

16822 


65 

1 6823 

- 

12S 

16824 


15 

16825 

ss 

254 


16829 

S> 

12 

16830 

3C 

214 

15831 

a 

128 

16832 

■ 

22 

16S33 

S2 

0 

.16834 

— 

95 

16S35 

ss 

42 

15836 

Z 

12 

16837 

» 

64 

16838 

SS 

25 

16839 

ss 

es 

16840 

ss 

161 

168+1 

22 

65 

168 + 2 

ss 

95 

16843 

ss 

35 

168 + 4 

ss 

6 

16845 

ss 

33 

16846 

ss 

25 

16847 

ss 

16 

16848 

ss 

253 

3.6849 

ss 

34 

16850 

ss 

161 

16851 

— 

85 

16852 

SS 

6 

16853 

ss 

9 

16854 

ss 

S9 

15855 

ss 

78 

16856 

ss 

33 

16857 

ss 

30 

1S853 

ss 

66 


16859 

ss 

25 

1686© 

s 

16 

16SS1 

ss 

253 

16862 

s 

9 + 

16SS3 

SS 

6 

16864 

ss 

© 

16885 

» 

53 

16668 

ss 

163 

16867 

ss 

SS 

18868 

ss 

25+ 

16869 

ss 

6 + 

1687S 

ss 

40 

16871 

ss 

33 

16872 

ss 

35 

16873 

ss 

126 

16874 

ss 

165 

18875 

ss 

+ 0 

16876 

ss 

3 

16877 

r» 

16 

1687'S 

a 

249 

!S8'’’9 

a 

201 

iSS£-t3 

a 

254 

16831 

se 

128 

16882 

a 

55 

16883 

— 

13 

1688 + 

— 

1 + 7 

16 885 

— 

2 + 

16886 

ss 

1 

16887 

Sr 

131 

isees 


+ 2 


16889 

- 

161 

16820 

— 

ss 

tessi 

sr 

119 

16892 

ss 

123 

tee 93 

Zi 

35+ 

16824 

se 

135 

1SS95 

s 

192 

16396 

ss 

12© 

16897 

3 

21 + 

16398 

ss 

Ì3 S®» 

16899 

se 

95 ' 

16000 

ss 

©2 

X6S01 

a 

13S 

1-6902- 

£ 

14 7 

t 6.908 

se 

UO 

16882 

ss 

56 

16833 

- 

3 

1638+ 

ss 

1+7 

16385 

£ 

2+ 

1688© 

s 

1 

16887 

ss 

131 

16338 

£ 

42 

16339 

= 

161 

16S90 

a 

SS 

16331 

ss 

119 

16832 

ss 

123 

13333 

ss 

35+ 

16304 

ss 

135 

15S95 

s 

192 

16396 

ss 

12© 

16S97 

ss 

21 + 

18898 


135 


16809 

SS 

95 

1690© 

SS 

©2 

16901 

a 

135 

ifcoaa 

£ 

14 7 

16903 

m 

119 

16904 

a 

a 01 

16905 

ss 

35 

16906 

& 

126 

16907 

s 

193 

18903 

ss 

123 

16909 

a 

185 

ISSI© 

ss 

+ 0 

16911 

a 

3 

16912 

x 

16 

16913 

» 

2+7 

16914 

22 

201 

16915 

a 

2S4 

1S01S 

« 

12© 

16917 

xr 

5© 

16913 

S 

3 

16919 

a 

131 

16020 

= 

24 

16921 

- 

1 

16922 

ss 

147 

1S923 

ss 

£4 

1692 + 

ss 

219 

16925 

sr. 

0 

16026 

ss 

1 

16927 

ss 

© 

1692© 

ss 

6 

18029 

ss 

■r» 

16230 

X 

4 


16931 

- 

135 

16932 

Z 

133 

16933 

£ 

131 

16934 

Si 

129 

16935 

ZL 

2 

1S93S 

SS 

0 

16937 

SS 

134 

16938 

ss 

1 

16939 

X 

4 

1S940 

z 

135 

169+1 

a 

S 

169+2 

ss 

131 

169+3 

a 

130 

163+4 

a 

4 

16945 

a 

0 

16946 

ss 

134 

16947 

ss 

1 

16948 

a 

2 

16349 

a 

135 

16950 

ss 

133 

16051 

= 

3 

16952 

a 

132 

16953 

a 

135 

16954 

a 

0 

16955 

a 

1 

1.S356 

s 

2 

16957 

ss 

3 

16958 

= 

4 

16059 

a 

S 

1698© 

a 

© 

16961 

ss 

7 

16962 

= 

27 


1S8S6 « 128 
18827 * 56 
3.6826 = 3 

Dump 5. Codici delta REM alla linea 5 del listato 5. 


16611 

a 

0 

16612 

a 

50 

16613 

a 

SB 

16614 

a 

65 

16615 

a 

24 

16616 

a 

5 

16S17 

a 

62 

16613 

a 

0 

16619 

a 

50 

16620 

a 

65 

16621 

a 

SS 

16622 

a 

122 

16623 

a 

50 

16624 

a 

13© 

16625 

» 

©4 

16626 

a 

50 

16627 

a 

31 

1662S 

a 

65 

issa 9 

a 

50 

16630 

a 

27 

16631 

a 

65 

1SS32 

a 

22 

18633 

X 

2 

16634 

a 

6 

JL6635 

a 

0 

16636 

a 

.148 

18637 

a 

4 

1633© 

a 

46 

16S39 

a 

252 

16340 

a 

5 

16641 

X 

120 

16642 

a 

50 

16643 

a 

2+ 

16644 

a 

55 

16845 

Sfi 

123 

16646 

Si. 

50 

15647 

a 

2c’ 

166+3 

sr 

©5 

16649 

ss 

+2 

18650 

sr 

132 

16651 

a 

6 + 

1 6852 

a 

3 + 

16653 

2 . 

16 

18654 

ss 

85 

16655 

ss 


18656 

a 

© 

16357 

a 

<£> 

ISS5S 

Si 

205 

18859 

a 

178 

18680 

a 

11 

1 S 66 1 

a 

30 

16662 

et 

0 

16863 

» 

62 

1666+ 

ss 

0 

L 866 S 

a 

131 

16866 

a 

254 

15667 

a 

c* 

16668 

a 

56 

16669- 

T 


1667© 

SS 

30 

1607 1 

ss 

0 

16672 

ss 

147 

16673 

sr 

5Q 

160 4 

a 

24 

16675 

a 

SS 

16676 

x 

58 

18677 

z 

16 

16678 

a 

55 

16673 

a 

0 


•18580 

CL 

5 0 

ise-3 1 

a 

16 

16632 

=. 


18883 

a 

58 

16084 


1 ' 

168S5 

a 

85 

18080 

Si. 

0 

16087 

Ss 

5© 

16&88 

ss 

1? 

166 89 

v 

ss 

.'.8090 

r 

24. 

ì f-391 

Z2 

1 ? 

i.ó c ’92 

SS 

50 

18693 

r. 

24 

15624 

TT 

65 

16695 

a 

55 

16825 

* 

il 6 

15 597 

sr 

6 6 

16-398 

a 

« 

16-39© 

ss 

SO 

187 00 

sr 

16 

15 V 0 1 

a 

65 

16702 

ss 

58 

16 703 

r. 

17 

16704 

a 

65 

18 705 

a 

0 

j.6" 06 

a 

5© 

16707 

a 

17 

15 -'35 

a 

©5 

16709 

a 

ci 0 

15 7 1 © 

a 

136 

167 X 1 

a 

54 

16 71 £ 

a 

61 

16 73 

a 

20 e 

16 M4 

a 

5© 

167 15 

ss 

13© 

16 716 

sr 

64 

16717 

a 

195 

16 V 18 

a 

15 

16 7 19 

X 

63 

16720 

a 

42 

16/21 

ss 

16 

16722 

se 

64 

16723 

ss 

126 

16 7.24 

a 

35 

1© '25 

a 

254 

16.-26 

a 

00 

\'S7.97 

sr_ 

.3 P 

16728 

a 

250 

16729 

s 

126 

1673© 

a 

254 

16731 

ss 

4 

16732 

a 

32 

16733 

a 

2 + S 

1S734 

B 

1 

16735 

a 

+ 

16736 

a 

© 

16737 

a 

35 

16738 

a 

35 

16739 

a 

17 

.1674© 

a 

13© 

16741 

ss 

6 4 

XS7+2 

ss 

237' 

187+3 

a 

176 

1574 + 

a 

195 

16745 

a 

148 

Ì67+S 


©4 


con questa istruzione si carica nel 
registro doppio HL il contenuto dei 
byte 16514 e 16515 nei quali si do¬ 
vranno pokare le coordinate del 
punto da plottare o da cancellare. 
A questo punto mi sembra doveroso 
presentare un programma grafico 
che sfrutti completamente le possi¬ 
bilità di queste routine. 

Il programma offre la possibilità di 
gestire immagini in due dimensioni: 
si possono disegnare poligoni rego¬ 
lari e non; effettuare torsioni di poli¬ 
goni; disegnare figure stellari; stu¬ 
diare i tracciati di complicati moti 
armonici e altro, basta lasciar lavo¬ 
rare la fantasia. 

Così com’é, il programma dise¬ 
gna dei poligoni regolari di 5 lati. 

X e Y sono le coordinate del cen¬ 
tro di simmetria, R la lunghezza del 
raggio della circonferenza circo- 
scritta al poligono. Per variare la 
forma del poligono basta cambiare 
il valore di partenza del ciclo FOR- 
NEXT alla linea 100 Es. 100 FOR 
I=Pl/5 TO ... 

Può essere interessante sfasare le po¬ 
sizioni dei poligoni inserendo nelle 
linee 110 e 120 un angolo di sfasa¬ 
mento Es. SIN (N+Pl/4). 

Per ottenere uno sfasamento di 180° 
per ogni lato basta scrivere: 

100 LET A(C,I) = X + RxCOS 
(I+CxPl) 

Così facendo si “torce” il poligono 
su ogni lato rispetto all’asse delle X. 
Questo tipo di sfasamento risulta 
molto interessante, provate inseren¬ 
do in input il valore di 40 o più lati. 
Se si torce contemporaneamente sia 
sull’asse delle X sia su quello delle Y 


si ottiene una figura stellare: 

110 ... COS (I+CxPl) 

120 ... SIN (I+CxPl) 

Per studiare i tracciati del moto ar¬ 
monico bisogna modificare gli argo¬ 
menti dei seni: 

110 LET A (C,I)=X+RxSIN (Nx 
numero intero) 

120 LET A (C,2)=Y+RxSIN (Nx 
numero intero+ sfasamento in ra¬ 
dianti). 

Provate 110 ... SIN (Nx6) 120... SIN 
(Nx5+Pl/2) 

Variando il numero dei lati si otten¬ 
gono delle immagini molto interes¬ 
santi. 

Come regola generale vi consiglio 
di rendere complessi il più possibile 
gli argomenti delle due funzioni tri¬ 
gonometriche; chi vuole utilizzare 
solo la prima REM senza la secon¬ 
da, non deve scrivere nel program¬ 
ma POLIGONI le istruzioni con¬ 
trassegnate da un asterisco; infatti 
con il primo programma non si può, 
come ho già detto, cancellare i punti 
(unplottare) quindi non si possono 
rappresentare i disegni in campo in¬ 
verso. 

Un altro spunto grafico può essere il 
seguente programma: 

10 FOR N=0 TO 2xPl STEP 

0.1 

20 LET W$ = CHR$ 30 -f-CHR 
$ 20 + CHR$ (30 + 20 x COS 
(N... pensateci voi)) + CHR$ 
(N ... pensateci voi) 

★ 30 POKE 16803,128 
40 RAND USR 16720 
50 NEXT N 
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eazione 


Id 

caratteri speciali 


Un ottimo programma 
per ZX Spectrum 

di Bruno De! Medico 

U na delle caratteristiche più 
importanti dello Spectrum 
è la possibilità di creare dei 
caratteri diversi da quelli normal¬ 
mente disponibili e visibili sulla ta¬ 
stiera. 

Il manuale spiega il metodo da se¬ 
guire per programmare un carattere 
speciale, tuttavia l’argomento meri¬ 
ta di essere approfondito. 

Viene anche presentato il program¬ 
ma Ideatore di caratteri con il quale 
è possibile creare caratteri speciali 
senza bisogno di disegnare reticoli o 
di fare conteggi con i numeri binari. 
In questo modo gli appassionati di 
scienze potranno programmare con 
facilità i simboli dell’alfabeto greco 
o qualsiasi altro, ed i lettori che pre¬ 
feriscono i giochi programmeranno 
caratteri rappresentanti UFO, mis¬ 
sili, esplosioni o esseri alieni. 


Programmazione 
di caratteri speciali 

Ciascuno dei caratteri dello Spec¬ 
trum è composto da una matrice di 8 
punti per 8. Quindi il quadratino di 
schermo che normalmente indichia¬ 
mo con 0,0 (così come ogni altro) è 
composto in effetti da 8 ★ 8 = 64 
quadratini più piccoli, chiamati 
PIXEL. 

I caratteri vengono disegnati su que¬ 
sta matrice. Per esempio, figura 1, il 
carattere O maiuscola può essere ot¬ 
tenuto marcando in nero i punti in¬ 
dicati e lo zero si ottiene marcando 
in nero altri punti oltre a quelli già 
marcati per la O. 



00000000 

00111100 

01000010 

01000010 

01000010 

01000010 

00111100 

00000000 


POKEUSR“A”, BIN 
POKEUSR“A"+1, BIN 
POKEUSR‘‘A”+2, BIN 
POKEUSR“A”+3, BIN 
POKEUSR“A”+4, BIN 
POKEUSR“A”+5, BIN 
POKEUSR“A’’+6, BIN 
POKEUSR''A”+7, BIN 


0 

60 

66 

66 

66 

66 

60 

0 


b) 


c) 


d) 



00000000 

00111100 

01000110 

01001010 

01010010 

01100010 

00111100 

00000000 


POKEUSR“B", BIN 
POKEUSR“B”+1, BIN 
POKEUSR“B"+2, BIN 
POKEUSR“B”+3, BIN 
POKEUSR“B”+4, BIN 
POKEUSR“B"+5, BIN 
POKEUSR"B”+6, BIN 
POKEUSR"B”+7, BIN 


0 

60 

70 

74 

82 

98 

60 

0 


f) 


g) 


h) 


Figura 1. Programmazione dei caratteri O maiuscola e ZERO. Nella prima 
colonna da sinistra, la matrice di 64punti, con i caratteri ottenuti evidenziando 
alcuni punti in nero. La seconda colonna rappresenta l’insieme di 64 bit (otto 
byte) equivalenti al carattere. Nella terza colonna, le istruzioni necessarie a 
programmare il carattere. Nella quarta le equivalenze decimali di ciascuno 
degli otto byte della seconda colonna. 


Nello Spectrum sono state lasciate a 
disposizione dell’utente una serie di 
21 matrici 8*8 che costituiscono i 
caratteri definibili dall’utente e han¬ 
no numeri di codice compresi tra 
144 e 164. Inizialmente tali matrici 
contengono i caratteri minuscoli da 
a fino a u. 

Ma possono essere modificate. 

Ciascuno dei 64 punti che costi¬ 
tuiscono un carattere occupa un bit 
nella memoria del computer. Poiché 
un bit può valere 1 oppure 0, la ma¬ 
trice di un carattere è immagazzina¬ 
ta come una serie di 64 cifre 1 oppu¬ 
re 0. 

In pratica facciamo in modo che ai 
punti da marcare in nero corrispon¬ 
da la cifra 1, ed ai punti da lasciare in 
bianco corrisponda la cifra 0. 

Gli otto bit di ogni linea costituisco¬ 
no un byte ed ogni carattere è costi¬ 
tuito da otto byte quindi occupa ot¬ 


to locazioni di memoria. 

Per ottenere un carattere pro¬ 
grammabile bisogna indicare al 
computer, uno per uno, tutti i 64 bit 
che compongono gli otto byte. Inol¬ 
tre, bisogna anche indicare gli indi¬ 
rizzi di memoria nei quali devono 
essere immagazzinati. 

1 caratteri definiti dall’utente vengo¬ 
no immagazzinati in una particolare 
area. Se questa area avesse un indi¬ 
rizzo fisso di partenza sarebbe possi¬ 
bile definire il carattere con queste 
istruzioni: 

POKE indirizzo fisso di partenza, 
primo byte del carattere 
POKE indirizzo +1, secondo byte 
... e così via. 

Purtroppo l’indirizzo non è fisso. 
Esso può variare ed il suo valore è 
contenuto nei due indirizzi 23675 e 
23676, che fanno parte del blocco 
delle variabili del sistema. Normal- 
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mente all’accensione questi due byte 
contengono il numero 32600. 

Per definire un carattere bisogne¬ 
rebbe teoricamente scrivere: 

POKE (PEEK 23675 + PEEK 23676 
★256), primo byte del carattere 
POKE (PEEK 23675 + PEEK 23676 
★256) + I, secondo byte 
.... e così via. 

Il sistema operativo dello Spectrum 
facilita molto le cose. Per definire il 
primo carattere è possibile scrivere: 
POKE USR “a”, primo byte del ca¬ 
rattere 

POKE USR “a” +1, secondo byte 
.... fino a: 

POKE USR “a” +7, ottavo byte 
Per definire il secondo carattere oc¬ 
corre usare POKE USR “b”, e per il 
ventunesimo ed ultimo POKE USR 
“u”. 

Il manuale suggerisce che l’e¬ 
spressione PRIMO BYTE o SE¬ 
CONDO BYTE siano effettivamen¬ 
te una sequenza di otto bit. Nel caso 
della lettera O maiuscola PRIMO 
BYTE sarebbe: 00000000. Per far 
capire al computer che quegli otto 
zeri sono dei bit viene usata la fun¬ 
zione BIN. 

Nella terza colonna della figura 1 
(c,g) potete vedere le otto linee di 
programma con le quali potreste de¬ 
finire un carattere nei primi otto in¬ 
dirizzi dell’area riservata ai caratteri 
speciali. 

Tuttavia ogni numero binario può 
essere letto come un numero deci¬ 
male, più comodo da usare con l’i¬ 
struzione POKE. Quindi invece di: 

POKE USR “a”, BIN 00000000 

è possibile scrivere più efficacemen¬ 
te: 


POKE USR “a”, 0 

L’eliminazione di BIN sottintende 
che il numero successivo alla virgola 





Figura 2. Matrici di punti usate per programmare i 16 caratteri dell’alfabeto 
russo non presenti nel nostro alfabeto. 


è decimale: quel numero decimale 
deve essere l’equivalente del numero 
binario eliminato. 

Nella quarta colonna della figura 
1 vengono riportati i numeri deci¬ 
mali equivalenti ai byte della secon¬ 
da colonna. 

La figura 2 illustra 16 caratteri spe¬ 
ciali: si tratta delle 16 lettere maiu¬ 
scole dell’alfabeto russo non dispo¬ 
nibili tra i caratteri del nostro alfa¬ 
beto. (Le altre lettere sono: A, B, E, 
K, M, H, O, P, C, T, Y, X). Analoga¬ 
mente potrebbe essere definito il set 
di caratteri dell’alfabeto greco, o 
altri. 

Ammettiamo di voler utilizzare in 
un nostro programma un solo carat¬ 
tere programmabile, il primo della 
figura 2: “be”. 

Possiamo caricare in memoria quel 
carattere c'on uno dei metodi se¬ 
guenti. 

Primo metodo: 

1 GOSUB 9980 


2 REM SEGUITO DEL PRO¬ 
GRAMMA 


9980 POKE 

USR 

“a”, 

BIN 

00000000 

9981 POKE 

USR 

“a”+l, 

BIN 

01111100 

9982 POKE 

USR 

“a”+2, 

BIN 

01000000 

9983 POKE 

USR 

“a”+3, 

BIN 

01111100 

9984 POKE 

USR 

“a”+4, 

BIN 

01000100 

9985 POKE 

USR 

“a”+5. 

BIN 

01000100 

9986 POKE 

USR 

“a”+6, 

BIN 

01111100 

9987 POKE 

USR 

“a“+7, 

BIN 


00000000 
9999 RETURN 


Secondo metodo: 

1 GOSUB 9980 

2 REM SEGUITO DEL PRO¬ 
GRAMMA 

9980 POKE USR “a”, 0 
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9981 POKE USR “a”+l, 124 

9982 POKE USR “a”+2, 64 

9983 POKE USR “a”+3, 124, 

9984 POKE USR “a”+4, 68 

9985 POKE USR “a”+5, 68 

9986 POKE USR “a”+6, 124 

9987 POKE USR “a”+7, 0 
9999 RETURN 

Quando diamo il RUN la subrouti¬ 
ne che inizializza il carattere viene 
eseguita per prima. Finché la sub¬ 
routine non viene eseguita il carat¬ 
tere non è disponibile. 

Ovviamente ogni carattere richie¬ 
de otto linee di programma, o co¬ 
munque una serie di otto istruzioni. 
Volendo programmare più caratteri 
la procedura diventa noiosa e la 
quantità di memoria occupata rile¬ 
vante. 

La procedura può essere abbreviata 
fornendo in input gli otto BIN uno 
per volta, con un programma come 
questo: 

10 FOR K= 0 TO 7 

20 INPUT BYTE: POKE USR 
“a”+K, BYTE 
30 NEXT K 

11 metodo è più rapido dei preceden¬ 
ti ma presenta uno svantaggio: i dati 
relativi al carattere non vengono 
conservati sul nastro quando regi¬ 
striamo il programma. Quindi con 
questo metodo dovremmo caricare 
gli otto byte relativi ad un carattere, 
OGNI VOLTA che ricarichiamo il 
programma dal nastro. 
L’inconveniente può essere evitato 
usando una linea DATA. Per cari¬ 
care il primo carattere della figura 2 
è possibile scrivere: 

1 GOSUB 9980 

2 REM SEGUITO DEL PRO¬ 
GRAMMA 

9980 READ C$ 

9982 FOR K= 0 TO 7: READ C: 
POKE USR C$+K,C:NEXT K 
9984 RETURN 

9990 DATA “a”, 0, 124, 64, 124, 
68, 68, 124, 0 

La linea 9980 legge il primo dato 
della linea 9990, la linea 9982 legge 
gli altri otto dati. 



Listato 1. Programma che rende di¬ 
sponibili i 16 caratteri dell'alfabeto 
russo illustrato nella figura 2. Questo 
programma occupa quasi 2 Kbyte di 
memoria. Il programma Ideatore di 
caratteri consente di generare un set 
completo di 21 caratteri, che occupe¬ 
rà solo 168 byte di memoria. 

Sulla base di quanto detto, possia¬ 
mo registrare su nastro un program¬ 
ma come quello del listato 1 : Alfabe¬ 
to russo. 

Ammettiamo che vogliate scrivere 
un programma il quale richieda l’u¬ 
so di caratteri dell’alfabeto russo. 

Dovete caricare prima il pro¬ 
gramma del listato 1 dando il RUN. 
Potrete poi sistemare il vostro pro¬ 
gramma dalla linea 2 alla linea 8999, 
e scrivendolo potrete utilizzare tutti 
i caratteri rappresentati nella figura 
2. Per esempio, per disegnare 32 ca¬ 
ratteri ef lungo la linea 0 potete pro¬ 
cedere così: 

10 FOR K=0 TO 31 

15 PRINT AT 0,K; CHR$ 152 
20 NEXT K 

Oppure potete cominciare scriven¬ 
do: 

10 PRINT AT 0,0;” 

Una volta aperti gli apici premete 
GRAPHICS e poi 32 volte il caratte¬ 
re i: otterrete una stringa con 32 ca¬ 
ratteri ef. 

Se registrate il programma, spegnete 

11 computer, riaccendete e ricaricate, 
dando il LIST noterete che la linea 
10 non contiene più 32 caratteri ef 
ma 32 caratteri i. Se però date il 
RUN e poi di nuovo LIST, potete 
vedere che la linea 10 contiene nuo¬ 
vamente 32 caratteri ef. Questo per¬ 
ché il RUN ha mandato in esecuzio¬ 
ne la subroutine 9980 che ha provve¬ 
duto a riempire l’area dei caratteri 
programmabili con i dati immagaz¬ 



zinati nelle linee DATA. 

Il programma Ideatore di caratteri 

Il programma presentato nel li¬ 
stato 2 consente di ottenere in modo 
rapido ed efficiente 21 caratteri spe¬ 
ciali. Usandolo il lettore potrà gene¬ 
rare caratteri essenzialmente in due 
modi: 

— disegnandoli direttamente sullo 
schermo, 

— scegliendoli tra una gamma gene¬ 
rata a caso. 

I caratteri generati a caso possono 
essere SIMMETRICI, o compieta- 
mente casuali. 

Una volta costruiti, i 21 caratteri 
vengono registrati come dati binari 
con una istruzione presente nello 
stesso programma alla linea 8500: 

SAVE “CAR” CODE 32600,168 

Per memorizzare meno caratteri, 
premere “0” quando appare il 
menu. 

Ora, ammettiamo che il programma 
BASIC nel quale vogliamo utilizza¬ 
re i caratteri speciali sia questo: 

2 REM PROVA 
10 FOR K= 144 TO 164 
20 PRINT CHRS K 
30 NEXT K 

Registriamo questo programma al¬ 
l’inizio del nastro. Se il registratore è 
munito di contagiri, al numero di 
contagiri 1. E evidente che il pro¬ 
gramma PROVA non contiene i dati 
relativi ai caratteri speciali. Questi 
vanno registrati subito dopo. 

Per esempio, se al termine della regi¬ 
strazione del programma PROVA il 
contagiri segna 5, allora il file di dati 
contenente i caratteri speciali va re¬ 
gistrato sul nastro posizionato al 
numero di contagiri 6. 

Quando vorremo utilizzare il pro¬ 
gramma PROVA potremo caricarlo 
con l’istruzione: LOAD “PROVA”. 
Successivamente caricheremo il file 
di dati contenente i caratteri speciali 
con l’istruzione: 

LOAD “CAR” CODE 32600,168 
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a) 


b) 



12 3 4 


■ □ □ □ 

9 IO 11 12 

■ □ ■ ■ 

17 18 19 20 

■ □ ■ □ 

25 26 27 28 

c) 



5 6 7 8 


□ □ □ ■ 

13 14 15 16 

■ ■ □ ■ 

21 22 23 24 

□ ■ □ ■ 

29 30 31 32 

d) 


■ □ ■ □ 

33 34 35 36 

■ □ ■ ■ 

41 42 43 44 

■ □ □ □ 


□ ■ □ ■ 

37 38 39 40 

■ ■ □ ■ 

45 46 47 48 

□ □ □ ■ 


57 * 58 59 60 


61 62 63 64 


Figura 3. Suddivisione di una matrice 
nella generazione di un carattere con 
caratteristiche di simmetria. 


Il secondo LOAD sistema i 21 carat¬ 
teri nell’area loro riservata, cioè dal¬ 
l’indirizzo 32600 al 32767. 

Notate che tutti i 21 caratteri occu¬ 
pano solo 168 byte nella memoria, 
mentre il programma ALFABETO 
RUSSO del listato 1, che pure rap¬ 
presentava un notevole esempio di 
risparmio di memoria rispetto la 
procedura normale, ne occupa al¬ 
meno 10 volte di più per soli 16 ca¬ 
ratteri. 

Premendo Graphics e poi le lettere 
da A a U possiamo ottenere i carat¬ 
teri speciali. 

Esiste un’altra procedura che con¬ 
sente di caricare entrambe le regi¬ 
strazioni (il programma PROVA e il 
file di dati) con una sola istruzione 
LOAD. Occorre procedere in que¬ 
sto modo: 

a) inserire nel programma PROVA 
una linea come questa: 

1 LOAD “CAR” CODE 32600,168 

b) registrare il programma PROVA 
con l’istruzione: 

SAVE “PROVA” LINE 1 anziché 
SAVE “PROVA” 

c) registrare poi il file di dati con la 
solita istruzione: 

SAVE “CAR” CODE 32600,168 
Quando, in un secondo tempo, vor¬ 
remo ricaricare il programma, po¬ 
tremo battere l’istruzione: 

LOAD “PROVA” o semplicemen¬ 


te: LOAD“ ” 

Il computer caricherà il programma 
BASIC PROVA poi, senza fermarsi, 
caricherà anche il file di dati. 
Questo perché l’istruzione SAVE 
“PROVA” LINE 1 usata per regi¬ 
strare PROVA fa si che appena cari¬ 
cato il programma PROVA va im¬ 
mediatamente in esecuzione: cioè il 
computer esegue automaticamente 
un GOTO I. Poiché la linea 1 di 
prova contiene l’istruzione: 

LOAD “CAR” CODE 32600,168 

il computer esegue il LOAD e cerca 
il file di dati CAR sul nastro carican¬ 
dolo appena lo trova. 

Quindi, conviene usare il program¬ 
ma IDEATORE DI CARATTERI 
per generare set di caratteri di qual¬ 
siasi tipo; che possono essere regi¬ 
strati come dati binari subito dopo i 
programmi BASIC utilizzatori. 


Analisi del listato 2 

All’inizio, ed ogni volta che un 
carattere deve essere generato, il 
computer visualizza il menu (9610- 
9630) che offre tre possibilità: 

— abbandonare la creazione e me¬ 
morizzare i caratteri in memoria 
(premendo 0), 

— costruire un carattere, 

— ottenere un carattere generato a 
caso ma simmetrico, 

— ottenere un carattere compieta- 
mente casuale. 

Premendo 1,2 o 3 si seleziona l’op¬ 
zione desiderata. È importante no¬ 
tare che nel corso della generazione 
di un set completo alcuni caratteri 
possono essere costruiti dall’opera¬ 
tore, altri possono essere generati a 
caso perché il menu si ripresenta per 
ogni nuovo carattere. 

Se l’utente sceglie l’opzione 1 deve 
disegnare il carattere sulla matrice 8 
x 8 che appare sulla sinistra dello 
schermo. 

Premendo i tasti 5, 6,7 e 8 disegna 
dei quadratini neri nelle posizioni 
desiderate. Se gli stessi tasti vengono 


premuti assieme allo SHIFT ottiene 
uno spazio bianco nella posizione 
desiderata indicato con 
Quando, al termine di una serie di 
spostamenti, crede di aver costruito 
il carattere, preme 1. Il computer gli 
visualizza il carattere ingrandito e, 
sulla destra in basso, il carattere in 
grandezza naturale disposto singo¬ 
larmente o in gruppi per una corret¬ 
ta valutazione dell’effetto. 

Se l’utente decide che il carattere 
risponde effettivamente alle sue 
aspettative preme S e quel carattere 
viene definitivamente collocato nel¬ 
la memoria. Altrimenti preme N ed 
il computer annulla tutto e presenta 
una nuova matrice per ricominciare 
la costruzione del carattere. 

Scegliendo l’opzione 2o 3 l’utente 
deve semplicemente attendere che il 
computer gli presenti sullo schermo 
un carattere generato a caso. Se il 
carattere gli piace, può passarlo di¬ 
rettamente in memoria premendo S: 
altrimenti può premere N ed il com¬ 
puter gliene propone un altro. 

La routine 2000-2100 genera carat¬ 
teri casuali ma simmetrici. 

Poiché il carattere è effettivamente 
composto da 64 bit, cioè 64 segni 0 o 
1, il computer costruisce i caratteri 
facendo riferimento al vettore Z, 
composto da 64 elementi, ognuno 
dei quali può valere 0 oppure 1. 
Ottenere un carattere simmetrico si¬ 
gnifica dividere la matrice 8 x 8 in 
quattro matrici 4 x 4. La figura 3 
illustra la suddivisione della matrice 
in quattro parti. Le 64 caselle della 
matrice sono numerate da 1 a 64, ed 
ogni casella corrisponde ad un ele¬ 
mento del vettore Z. 

Il disegno contenuto nella parte B 
rappresenta l’immagine speculare di 
quello contenuto nella parte A. Le 
parti C e D sono l’immagine specu¬ 
lare delle parti A e B. 

È evidente che tutti i quattro disegni 
prendono origine da uno solo. In 
effetti il computer genera a caso una 
sola delle quattro parti, cioè riempie 
a caso di segni 1 oppure 0 un vettore 
di nome A composto da 16 elementi 
(2030-2050). 
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SRIGHT 1; "CO 


1 REM “CERTO". E DI CRRRTTERI 
*4283«DEL MEDICO» 

asse. lei 2 $ = "s=i" 

150 LET RT=0 
S00 eo TO 9SS0 
1000 GO SUB '3700 
Ì0Ì0 GO SUB 6380 
iaae print rt s,i3, 

STRUZICNE" 

1>333 PRINT BT 1S,3; "S-6-7-8 HUOD 
O.NO",RT 28..3; "SHIFTPTI 5CRIUONO' 

, INVERSE li" 1 CONFERMO “ 

104© FOR K=° 70 16: PRINT RT K,S 

,"unnnunnv- : next k 

1045 EET L=16. LET C = 5 

1046 EET Y$=CHR4 6 _ 

1050 PRINT RT L,C; INK li ("■" RK 
D CODE OUER 1; INK 0.. « "# 

• RND CODE Y*<12> 

1060 LET 2 ( CL-9) *8fC-*) = (CODE Y* 


> 11 ) 

1100 

1116 

1115 

1120 


PROSE 6E4 
LET Y*=INKEY* 

XF Y*="l” THEN GO TO 4000 
LET L=L+tINKEY*="6" OR CODE 


.) 


•*=10) - (INKEY* = 


OR CODE Y* = l 


1125 IF L < 9 THEN LET L =9 

1126 IF L >16 THEN LET L = 16 

1130 LET C*C + ( INKEY* = " 8 " OR CODE 
Y*=9)-(INKEY*»"5" OR CODE Y*=8) 

1132 IF C<5 THEN LET C=5 

1133 IF 012 THEN LET 0 = 12 
114-0 GO TO 1050 

3000 GO SUB 9700 
3010 GO SUB 6000 

3020 PRINT RT 8,18; BRIGHI 1; SI 
MMETRICO" 

3030 LET JK=RND 
2040 FOR K=1 TO 16: IF 
5N LET R(K.»=1 
3050 NEXT K 

3050 LET CT=1: FOR K=0 
P 8: FOR U=1 TO 4: LET 
CT) : LET CT=CT+1: NEXT 
2070 LET CT = 1: FOR K=0 
P 8: FOR U =8 TO 5 STEP 


RND >UK TH 


TO 24 STE 
Z (U+K) =R < 
U: NEXT K 
TO 24 STE 
_____ -1: LET Z 

<U+K)*R<CT>: LET CT=CT+1: NEXT w 
NEXT K 

3080 LET CT=1: FOR K=0 TO 24 STE 
P 8: FOR 14=57 TO 60: LET Z(U-K.>- 
R (C-T) : LET CT=CT+1: NEXT U: NEXT 
K 

2000 LET CT=1: FOR K=© TO 24 STE 
P 8: FOR 14=64 TO 61 STEP -1: LET 
7(U-K) =f)(CT) : LET CT=CT+1. NEXT 
U: NEXT K 
3100 GO TO 4000 
3000 GO SUB 9700 
3005 GO SUB 6000 

3010 PRINT RT ©,18; BRIGHT 1; 
5URLE" 

3016 LET UK=RND 
3020 FOR K=1 TO 64: IF 
=N LET Z(K)=1 
3025 NEXT K 
3030 GO TO 4000 

4.000 LET CT = 1 : FOR K=9 — 

R U =5 TO 12: PRINT RT K,U; ("(1 
NO Z f CT) =1) + ( " " RND Z (CT) =0) 

cT CT=CTfl: NEXT U: NEXT K 
4020 FOR K = 1 TO 57 STEP 8; FOR 
=0 TO 7; RERD C 

4040 LET E t (K+7) /8) =E ( (K+7) 78) + 

C RND Z(K+U)=1.) „_ r 

4058 NEXT 14 : RESTORc 9581 : NEXT 


'CR 


RND ? <JK TH 


TO 16 : 


FO 

R 

L 


4888 FOR K=0 TO 
,E(K+1). NEXT K 
4038 LET F$=”" 
).092 FOR K = 1 TO 
3 (CODE Z*+79) 
4094 NEXT K 


POKE USR Z*+K 


LET F$=F*+CHR 


4180 PRINT RT 1S,16;F*;RT 18,16: 
F*(i);TRB 1S; F* il) ; TRB 20;F*(1> 
411© PRINT RT 16,24.; FS( TO 3 ) : P~ 
17,24; F*V TO 3) ; RT 1S, 24; F$ ( 70 
3) 

420© PRINT RT 17,28; FLR3H 1; BP 
IGHT l;"DK?';RT 13,26;"S/N" 

4285 PAUSE 6E4 

4210 IF INKEY#*"S" OR INKEY**"*" 
THEN GO TO 4308 
4228 GO TO 

4300 l.er Z$=CHR* .'CODE Z* + l) 

4.305 XF Z* = "U" THEN GO TO 8000 
4313 RESTOSE 
4320 GO TO 9S08 
5300 PRINT RT 7,16; 

s3t" ; rt sj . 1 g : _ 

S(510_ F-RINT «T 11, iò.; "CRPRTTERE: 
ì $L 4 : ;w : ■ O ~ ' DR 4 4 : ; IC G — 

"ì RT .1 3.16; "CHD* 79+COOE' Z 

* 

S020 RETURN 
8008 LET RT *1 
8018 GO SUB 9700 

S02© PRINT RT 7,17; FLP5H 1;"SER 
IE",RT 8,17;"COMPLETA";RT 10,17; 
"UN TASTO PER”;RT 11,17;"REGISTA 

^pjr •- 

3038 LET G*=" ": FOR K=144 TO 16 

4: LET G*=G*+CHR* K+" ": NEXT K 

3040 PRINT RT 13,17;G*( TO 13);P 
T 16,17; G* f TO 13);RT 16, 17; G* ( 
TO 13);RT 17,17; Gt ! TO 13) 

3050 IF INKEY*<>"" THEN GO TO 85 
00 

3060 LET G*=G* + G*CD : LET G*=G*( 
a TO ): PAUSE 5; GO TO 8040 
5500 SAUE "CRR"CODE 32600,168 
3550 STOP 
9500 CLS 

9610 FOR K=0 TO 31: PRINT RT 0,K 
;"||";RT 4 , K ; ; RT 2ì,K;"B": NÉX 

9528 FOR K=1 TO 20: PRINT RT K,0 
; "m" j RT K,31;"jf": NEXT K 
9530 PRINT RT 7,3;"P";RT 7,14;”^ 
" ; RT 18,3; ; fjt 18,14;"J|" 

-- K= j TO 33 print RT 7, K 

: NEXT K 

17: PRINT RT K,3 
. NEXT K 

6; BRIGHI l;"IDE 
ASTORE DI CfiRRTTÈRI" 

9570 PLOT 38,105 ; DRAU 68,0,0: P 
LOT 38,37: DRAU 68,0,0: PLOT 38, 
37; DRAU 0,68,0: PLOT 106,37: OR 
RU 8,63,0 

9581 DATA 126,64,32, 16,8, 

9610 PRINT RT 7,17; 

S612 PRINT RT 6,19, BRIGHT l;"OP 

ZIONI" __ 

2615 PRINT RT 9,17; 

^628 PRINT RT 11,17;"1) COSTRUII 
ONE”;RT 13,17;"3) GENERAZIONE";fi 
r 14,20;"SIMMETRICA";RT 16,17;"3 
) GENERAZIONE";RT 17,20;"CASUALE 


9543 FOR K=4 TO 
} "®" /flT 18/Kj 
9550 FOR K =© TO 

; "| " ; rt k, 14; - l'¬ 
asso PRINT RT “ 


963© PAUSE 634 

9635 IF INKEY* = "© " THEN GO TO 8® 

30 

9648 IF INKEY*O"1" RND INKEY*<> 
"2" RND INKEY*<>"3" THEN GO TO 9 
530 

9545 LET 3=UAL INKEY* 

9650 GO TC 0*1080 

2700 FOT K-7 TO 18: PRINT RT K,1 
5; BRIGHI RT; " 

9710 DIN Z (64) : DIM fi (16): DIH E 
CS.1 

975© RETURN 
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Listato 2. Programma Ideatore di caratteri che consente di generare in modo rapido e piacevole set completi di caratteri 
speciali, in modo casuale o secondo le esigenze particolari dell’utente. 








■gir Ideazione 

di caratteri 
ijBiwl _speciali 

Le linee dalla 2060 alla 2090 trasferi¬ 
scono il contenuto del vettore A nel¬ 
le quattro parti della matrice dise¬ 
gnate nella figura 3. In pratica, riem¬ 
piono il vettore Z (quello composto 
da 64 elementi) secondo i criteri 
enunciati qui sopra che consentono 
reffetto-simmetria. 

La routine 1000-1040 consente di 
costruire un carattere premendo i 
tasti direzionali sulla tastiera. I valo¬ 
ri di L e C variano a seconda del 
tasto premuto, e la linea 1050 stam¬ 
pa un quadratino nero o uno bianco 
a seconda se il tasto premuto era 
shiftato o meno. 

La linea 1060 assegna il valore 1 
all’elemento del vettore Z$ interes¬ 
sato, quando il tasto premuto non è 
shiftato cioè quando sullo schermo 
appare un quadratino nero. 
Osservate ancora la figura 3 ed im¬ 
maginate che l’ultimo quadratino 


disegnato sia quello contrassegnato 
dall’asterisco. 

I valori di L, C relativi a quella posi¬ 
zione dello schermo sono rispettiva¬ 
mente 16 e 5. La linea 1060 si legge: 
LET Z (16-9) ★ 8 + 5-4) = 

(CODE Y$ > 11) 

Semplificando: 

LET Z (7 ★ 8 + 1) = (CODE Y$ > 

11 ) 

L’espressione tra le parentesi a sini¬ 
stra vale 57. Infatti la casella in'que- 
stione è contrassegnata dal numero 
57, cioè intendiamo che in quella 
casella venga disegnato l’elemento 
57 del vettore Z. 

L’espressione tra le parentesi a 
destra contiene un operatore rela¬ 
zionale (il segno: maggiore di) quin¬ 
di vale 1 se l’espressione nel suo 
complesso è vera, oppure vale 0 nel 
caso contrario. 

Ora, se l’utente ha premuto un tasto 


shiftato il codice di Y$ può valere da 
8 a 11. Esso non è maggiore di 11 e 
l’espressione della linea 1060 si leg¬ 
ge: 

LET Z(57)= 0 

Se invece l’utente ha premuto uno 
dei quattro tasti direzionali senza 
shiftarlo, il numero di codice può 
avere valori compresi tra 53 e 56 
(codici relativi ai numeri da 5 a 8). 
L’espressione contenuta tra paren¬ 
tesi è vera e la linea 1060 si legge: 

LET Z(57) = 1 

Tutti i 64 elementi di Z valgono ini¬ 
zialmente 0. Diventano uguali a 1 se 
l’utente, passando sulla casella rela¬ 
tiva, preme un tasto senza shiftarlo, 
cioè se disegna in quella casella un 
quadratino nero. 


NEL PROSSIMO NUMERO DI 


TROVERETE: 

• MISSIONE UFO PER VIC 20 

• LA BATTAGLIA 

DEL LAGO GHIACCIATO 
CON IL PET CBM 

• OTHELLO PER ZX81 

• MUSIC 4.2 CON IL C 64 

• SATEL: IL MOTO DEI 
PIANETI CON LO ZX81 


• DAL BASIC AL PASCAL 

• SPACMAN: UN GIOCO 
PER SPECTRUM 

• IL VIC BEN TEMPERATO: 
COME USARE IL COMPUTER 
NELLA MUSICA 

• ORDINAMENTI 
CON LO ZX81 

• POTENZIAMO IL BASIC 
DELL’APPLE 
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usic Editor 



Un potente strumento 
per sfruttare le qualità 
musicali del C 64. 

E previsto l’uso del disco 


di Mirko Gremes 


Questo programma permette 
di trascrivere con estrema 
semplicità e velocità, brani 
musicali in dati, nel formato 
richiesto dalla routine MU¬ 
SIC 4.2, che verrà presentata 
nella prossima puntata. 


I n questo programma, grazie 
all’uso del joystick, vengono 
semplificate al massimo le 
operazioni di trascrizione delle note 
e tutti i relativi parametri. 

I dati, prima di essere accettati, 
vengono accuratamente controllati, 
ed eventualmente scartati o ridi¬ 
mensionati alPinterno del “range” 
consentito. 

Le note, scelte spostando una cro¬ 
cetta col joystick su una tastiera raf¬ 
figurata sul video, vengono visualiz¬ 
zate e contemporaneamente sono¬ 
rizzate. 

È possibile ascoltare le note inse¬ 
rite voce per voce, e correggere even¬ 
tuali errori riscontrati. 

Il programma prevede la memo¬ 
rizzazione dei dati inseriti, mediante 
file, in modo da poter continuare o 
modificare la trascrizione in tempi 
diversi. 


Uso del programma 


Listato I. Il programma Music Editor. 


0 retti ****************** 


1 rem * 

2 retti * 

3 rem * 

4 rem * 

5 rem * 

6 rem ♦ 

7 rem * 

8 rem * 


music editor 
ba 


mirko Qremes 


: fi ex t f or t =0to 11 ree dd t3*=t3$+chrf < d > next 
'■next 'tl*=ch rt< 18> : fort*0tol7 
^ t1♦*t1$+chr$ < 32 > +chr$ <182 > +chrf <140 


’ : next : next'next : fort=0to27 : s*f«ss 


9 rem ****************** 

10 P ok e55,255 : Pok e51,255 : Pok e56 , 10 i : P ok e52, i 01 • P r i ntchr*< 147) +chr* < 8 ) +chr* < ì 42 > 

12 P ok e53265, P eek < 53265 ) and239 ■ f or t* 163to 177 ■ P ok et, 0 next 

15 fort*39448to40367 • rea.dd ; Poket, d : next : fort*39224to39439 : readd : Poket, d : next 
20 sa*39240 :*a*39423 :r»2t<1/12) =x=440/<29*256+60) fort*lto89 hz«<rtt>*16.35* 

30 hh* i nt < hz/x -' hi»hh/256 1 o»hh-< hì ;-:*256 > P oke40369+t , 1 oY. Pok e40439+t , hi Y. ’ next 
40 n9*C 1 )*" Ini. " : n9*<2)*"Fin. " n«*<0)*"Si " n8*< 1 )*"No" n9f<0)*" " n 1-8 t4=4 

43 n9#< 2 > * " 1 " : n9*<3>=" 2" n9*<4)«" 3":n9$<5)*" 4":t3*l : ot*4 : bv*53248 

50 dimoi <19, 1, 1 , no* < 12 >, P t<2.. 4) .. PP <9>.. dt< 14) : id<0>-33673= id<l >=33515 id<2>*3735 
7 

55 fort*0to9 : rea.dd : t2**t2*+chr$<d) : t 
57 fort*0to7 : rea.dd ' t5t-t5$+chr$<d) : r 
53 11 *-t. 1 *+chr*<32 ) +chr* <167)- next : \ 

59 t4t=t2*+t3*+t2*+t.3*+t2*+t5* 

60 f ory *0to 1 : f orz*0to 1 : f'ort=0to 19 : readn 1 < t, z, 

*+" ":next 

70 fort*0tol2 readno#<t) next '• fort*0to7 : *P $=*P *•+" " next : fort*0to39■ 1U*1 
80 next • fort*0to2 : co<t)*id<t> : nn<t)*l next • fort»lto7 • readmo*< t) = next 
85 fort*0to9 : readPP <t> next : fort*0to9 : readl i <t> • next : fort*0to3 : readnf*<t > : next 
87 f'ort»40550to40955 : readd Poket, d : next : ***33279 
90 rea.dd : i f d<0then95 
92 Pokeaa... d : aa-aa-1 : 9oto90 

95 Pok*87, 1 : sa*40550 : fort*33280to33672 readd : Poket.- d next : 9oto5000 

97 rem-— 

98 rem Plot input xx,aa 

99 rem- 

100 P ok e214 i y y • p ok «211/ xx. : va *53732 : return 

117 rem- 

113 rem disegno tav 1 

113 rem- 

120 P rintchr*<147 >■xx-0 y a » 16 : 9o*ubl00 : fort«0to3 : P rint" 11"t4*:next■fort»0to2 : Prin 
t"ll" 11 * ; next 


130 xx*1 : a y =0 9o*o.b108 P 
200 f ort* 1 to38 : Pok.e 1064+t 

210 P r i nt " «-1 " 

220 Pr i ntta.b<30) " I 4/4 
230 Printtab<30>"I 2/4 
240 Printtab<30>"I 1/4 
230 Printtab<30)" I 1/8 
260 Printtab<30>"I 1/16 
270 Printtab<30>"I 1/32 
230 Printt*b<30>" I 1/64 
290 Printt*b<30>" I . 

295 Printt*b<30>" I .. 

300 Printtab<30>" 1 - 

320 Print" i-1- 

330 Print"I |“ 

340 Print" l —----»-'-• •• 

350 sa*33632 : xx*1 : yy*7 : 9osubl00•Print"fl*Voce 


nt " Voce"nv+1.; tab<30> "Nota "nn<nv) 

64 : P ok e55336+t ^ 1 : next : xx*30 : a a *3 : 9o*u.b 100 


: xx*0 : aa=3 : 9o»ubl80 


9oto400 

"IMW»lT3=Par. E*. H 


353 Print" JE*»f 3*0tt*va" ; "IM»»f'7*Belete" : Print-"amiTo-RscoIto" ; 3-Fine" 

35^ »y*4xx*l : 9o»ubl00'Print**t : return 

397 rem- 

393 rem lettura note 

399 rem- 

408 Pokel98.0 : if'ed=0then9osu.b350 

401 Pokebv+21,3 : xx»l 1 : aa«4 9o*u.bl00 PrintsPf : Printchrf < 19)tab<34>nn<nv) "Il 
535 

405 11=-< <Peek<56320)andl6)*0)•t2*notPeek<56320)and15 
410 ift2*0theny*399 : 9oto478 

420 ift2«= 1 thentb* 1 P okebv+7,195 Pok ebv+42,36 
425 irt2*2tbentb*0 : Pokebv+7,215 : Pokebv+42, 0 
430 ift2-8*ndn1C19thenn1-n1+1 
440 ift2»4*ndn1>0thennl»nl-1 

450 i fri 1 < nA , 1, tb><255thenPok ebv+16,0 : P ok ebv+6, n 1 < n 1 > 1, tb > : 9oto460 
455 i f n 1 < n 1, 1, tb ) >255tbenP ok ebv+16,3 : P ok ebv+6, r. Uni, 

460 fort*0toa : next•y«0 
470 iFtl*lthennp=n1<n1,0,tb> : nn*nP 
430 9ett« ìft« : *" ,, tben405 

435 ift**chr$< 133>andnv<2thennv«n'.y+l ifnnC nv)*ltben6000 


tb)-255 

< l2*<-<nPO0> >*ot)) + <nPO0) : 9oto600 
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Innanzitutto si deve inserire il joy- 





























stick nella porta 2. Poco dopo aver 
dato il RUN, apparirà un’intestazio¬ 
ne; nel frattempo vengono trasferiti 
in memoria i dati relativi alle varie 
routine in linguaggio macchina usa¬ 
te nel programma. 

Ricordiamoci di alzare il volume 
del televisore per poter ascoltare, in 
seguito, i suoni. 

Apparirà poi il primo MENU: qui 
potremo scegliere se iniziare una 
nuova trascrizione, o continuare/ 
modificare una precedentemente 
eseguita. In questo caso verrà chie¬ 
sto il nome del brano che, automati¬ 
camente, verrà ricercato e caricato 
dall’archivio memorizzato sullo 
stesso disco che contiene questo 
programma. 

Con l’opzione 1, si entra nella fase 
di trascrizione: viene innanzitutto 
presentata la tavola relativa ai para¬ 
metri d’esecuzione. 

Spostando il joystick in senso 
orizzontale, si potranno selezionare 
quelli che si vogliono modificare; i 
relativi valori si cambieranno spo¬ 
stando la leva in senso verticale. 

Oltre alla forma d’onda, invilup¬ 
po, Velocità, volume, si può stabilire 
se fare iniziare il ritornello, o farlo 
terminare: in questo caso si deve sta¬ 
bilire il numero di volte che deve 
essere ripetuto il blocco di note rac¬ 
chiuse tra il marcatore di inizio e 
fine ritornello. 

Questa tavola può essere richia¬ 
mata ogni volta che si desidera va¬ 
riare uno o più parametri d’esecu¬ 
zione. È così possibile creare quegli 
effetti di dinamica e timbrica espres¬ 
siva difficilmente simulati da una 
macchina. 

Per passare alla tavola successiva, 
basta premere il tasto fire del joy¬ 
stick. 

Viene ora visualizzata in basso 
sullo schermo, una tastiera di due 
ottave e mezzo. In alto viene eviden- 


Seguito listato Music Editor. 

490 ift$=chr$< 137)andriv>0thenny=nv-1 
493 iftt*chr$< 134 j andot<5thenot*ot+l 

495 ift$*chr$< 138>andot>0thenot.*ot-1 

496 ift**chr*<136>th«n2000 
500 Ift«-chr*a35)th*n60e0 

505 ift*-chr*C140>th«ns**33280 : 9oto5300 

510 if tf *chr$< 139>andnn< 1}>landnn<!2>>l thens-y £-33280 ' Poke87.. 3 : *y *40550 '• 9oto400 
515 xx*5 : y y =0 : 9os.ij.fc- 100 : P r ir-tnv+1 ; tab < 34 > nn<nv) " Il " 

535 xx*5 : yy=24 : 9osubl00 : Pr inf'Ott "ot, "Qtt "ot+l , "Ott"ofc+2. ; 11 jfl" 

580 9oto405 

59? r«m-*- 

598 rem input va lori 

599 rem- 

600 Poke33020.- nn : Poke87,2 • *y £-40550 Pokebv+21 > 0 : yy =4 xx=l 1'9osubl00 : 1 fr>n>89thennn 
■89 

605 abf*no$<nn-< lnt <nn/12> >#12+<”<nnO0> > >+ri9ht$<*trf< int<nn/12) > .. -<nnO0> > 

607 Printabt : t1=0 : t2=0 : 9oto650 

619 : 

620 tl—<<P««k<56320>and16>-0>:t2«notPeek<56320>andl5=ift1-1then?00 
623 9ett f ift*-ehr*< 136>ther-400 

625 ift2-0theny*299 : 9oto620 
630 if t2=landt4>0thent4*=t4-l : 9oto650 
640 if t2-2*ndt4<9thent4-t4+l=9oto650 
645 9oto660 

650 Pok«1215+<40*t5>,32:pokel215-K40*t4>,62 : Poke55437+<40*t4> .■ 1 : fort»0toy • n*xt : y 

-0 

660 ift2-8thenfort-ito4 t6»1215+<40#t4>+t : Poket6.- Peek <t6>or 128 : next 

670 ift2=4thenfort=4to 1 steP-1 : t6«1215-K40#t4';+t • Poket6.- Peek<t6>andl2? '• next 

630 iftl*lthen?00 

690 t5*t4 9oto620 

700 tc*0:fort-0to8:ifPeek<1216+<40*0»127thentn<t>*l tc-1 9oto710 
705 tn<t>=0 

710 next : if<tn<7>s=landtn<3>*l>ortc-0then620 

720 if'<tn<6)**landtn<7>*1 >or<tn<8>■ 1 andtn<5> = 1 >or<tn< 6 > *landtn < 3 > = 1>then620 
730 tn**0 : f ort*0to6 ' iftn<t>*lth#nt-Ti*tn4-i'2t<6-”t> > 

740 next : iftn<7>»lthentn*tn+<tn/2> 

745 iftn<8>=lthentP*tn/2 : tn«tn+tP+<tP/2> 

750 iftn=8then620 

760 ab*“Abf-»-strf <tn> : xx=l 1 : yy=4 : 9o*ubl00 : Priniab* : bA*«*ab* ' ab**" " 

765 fort=0to3-fory=0to3 : Poke1216+t*40+y.-Peek <1216+t*40+a zandl27-next : Poke1215+t* 
40 , 32 

770 next ; c9=co(!nv> : ifed=ltbenc9»cb : ed*0 

772 Pok e 165, 2 : Pok e 163, c9-< i nt<c9/256 > *256 > • P ok e 164, c9/256 : ay 2-33566 
775 PokecS.- nn : 9o*ub900 : Pokec9+l > tn : 9osub900 • nn<nv>=nn<nv>+l 
730 yy=4 ' xx=l ' 9os-ubl00 : Pr inta-Pfliliifiirba* ' 9oto401 
900 co < nv > =co < nv > +1 : return 

1997 rem--—-- 

1993 rem delete 

1999 rem- 

2000 Pokel?8, 0 : ed* 1 '• a3*=*P* ■ e2*=a3* '■ aI*=a3* ca»id<nv> cb»c?. : mo*0 : 9o«.ub3000 : 11 * le 
2005 s-y *33632 ml*mo : ri =50 : xx*8 • yy = 10 : 9o*ubl00 ■' Print"Edit" 

2007 Pr int" JEBIP7*Ba caPo"tab<14>"f8»Ftne” : 9oto2900 
2010 9oaub3000 
2020 i fm1=0then2506 
2030 ifmi*lthen2600 

2032 ifml=3thenve= 3 256-Peek <cb+l > : 'Doto2650 
2034 i f m 1 *=4thenrt= 1 : 9oto2650 

2036 ifrnl =5thenrE=:0 9oto2^50 

2050 i Pm 1 =2the rc..-o=P eek f cb + 1 ’■ ' P ok e5429v ••••o 9oto2650 
2060 ; f rn 1 =6P henP ok e54276 . p-t/nv.- 0 ^ ?ndl6 30^02510 
2070 ifm1«7thened=0 9oto400 

2500 Poke-54272, Peek T40369+Peek<cb> > Poke54273, Peek T40459+Peek Ccb> > ■ e-oke54276, P t<. 
nv .• 0 > or 1 

2510 f ort*=0toPeek (icb-^1 > ; f ory *0tor i next- 9oto2700 
2520 next : Poke54276_. pf'nv.- 8>andl6 9oto2390 
2600 P t nv, 0 j ~P eek C cb+1 '• ’ P ok e54276, P t < n- /, 0 > 

2610 P t f. nv, J > =P eek <cb+2 > : P ok «54274.. P t < nv . 1 > 

2620 Pt<nv,2>-Peek < cb+3> Pok«54275,PtCnv.2> 

2630 P t < nv.- 3> “P eek <cb+4 '• ' p ok e54277.- p t < nv .• 3 > 

2640 P t Cnv > 4 ;• =P eek cfc-+5 ’> ' P ok «54278 .• P t K nv.- 4 
2650 fort*9to 100 : i fp eek <56320) = U1 ther-3500 
2660 next : 9oto2390 

2700 11=-/ <P«ek <56320'■ andl6>*0> : t2=notPeek <56320) aridi5 

2710 i ft2= , 8andr i<200tb*nr ì*ri +5 

2720 ift2»4andri>10thenri=ri-5 

2730 1ft1=1th«n3500 

2735 9«ttt ’ if t»*chr»< l?6>ther-2000 

2737 ift#»chr*<140 > tbe ned=0 : Pok «54276,P t < nv.9 > ?nd16 9oto400 

2740 9oto2520 

2890 ml*mo : cb*ca : ll*lc 

2900 fort=ltol1 : ca=ca+1 : next ; 9oto2010 

rigalo 

3000 Pe=Peek<ca>■Pf=Peek<ca+l> 

3005 ifmo=?thenat^sP * 9oto3090 

3010 if Pe<90a.ndP«>0thenmo*0 : ?< : =no^<Pe-< int<Pe/12)^12> + l > : lc=2 
3015 i f’mo=0andlc=2thenat=al ; +r i 9htt < s.trt < int <P e/12) >.-1 > +s tr♦ ( P f > 

3020 if'Pe=0thenmo=6 : ?.t=mo^<6>+strt <Pf > : lc=2 

3030 ifPe*255thenmo*l'a#*wot(1)1c=6 

3040 i f Pe“254thenmo=*2 : at=moJ : <2>+ì tr^<Pf ) : lc=2 

3050 ìf'Pe=253thenmo=3 : s.#*=moX3)+£ tr4 : <256-Pf ) 11~=2 

3060 1 fPe=252thenmo*7 - a^=mo % f -.7 ) • 1 c= 1 

3070 ifPe«250thenmo*4'3Ì s mo#(4)-lc=1 

3080 i fPe=251 thenmo*5 : A^afoo^<5> : lc=2 

3090 a.3*»J.2* : a.2t»=alt ' al*=a* ’ xx=0 : yy=4 = 9o*ubl00 

3100 Pr inttab-» 1 zsst ' Prinf'W' ; tab< 1 ja.3f; tabe 11 >a2f-; tab<20>al# : return 
.3499 ; 

3500 Pok«54276,Pt<nv,0>and16 

3505 t2=notP eek <56320>and 15 - 9ettf- : i f t#= ” SI" th«n200O 
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ziato il numero della voce e quello 
della nota che si sta per inserire. 

Per semplicità sj è predisposto il 
programma a ricevere le note, voce 
per voce. 

Nel caso che lo spartito preveda 
l’uso con meno di tre voci, quelle 
non usate dovranno essere caricate 
con delle pause. Se le voci sono più 
di tre, caso per caso, si elimineranno 
le note meno significative per il ri¬ 
sultato armonico-melodico. 

Come si è detto, spostando la leva 
del joystick a destra e a sinistra, si 
può ricercare la nota voluta. Per 
passare dai tasti bianchi a quelli neri 
e viceversa, la leva dovrà essere spo¬ 
stata in senso verticale. Se al posto 
di una nota si vuole inserire una 
pausa, la crocetta dovrà essere spo¬ 
stata all’estrema sinistra, fuori dalla 
tastiera. 

Premendo F1RE, la nota eviden¬ 
ziata viene visualizzata nella parte 
centrale della finestra che compare 
in alto sullo Schermo. 

Contemporaneamente viene fatta 
ascoltare. Premendo “f7” la si può 
cancellare. 

Si deve ora indicare la durata del¬ 
la nota o pausa: spostando la leva in 
senso verticale, si muoverà una frec¬ 
cetta che punterà sui vari valori ri¬ 
portati nella tabella. Spostando la 
leva verso destra, la frazione indica¬ 
ta verrà evidenziata passando in re¬ 
verse, e viceversa. 

Si potranno evidenziare più valo¬ 
ri, che al momento di premere il soli¬ 
to Tire, verranno sommati e trasfor¬ 
mati in sessantaquattresimi. A que¬ 
sto punto la nota ed il relativo valore 
sono memorizzati. 

Sullo schermo vengono anche vi¬ 
sualizzate le funzioni associate ai ta¬ 
sti (di funzione) omonimi. 

Vediamo ora i comandi, 
fi Premendo questo tasto si incre¬ 
menta il numero della voce; per de- 
crementarlo si usi f2. 
f3 La tastiera copre poco più di due 
ottave: premendo f3 e f4, è possibile 
traslarla su tutte le altre. 
f5 Serve a richiamare la tavola dei 
parametri d’esecuzione. 
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3510 : a2*=ì 3* a lt-sP* : So*ub3090 ' Soto400 

3520 ift2O4then350S 

3523 1 f co < iva ! < 1 d < rtv > +11 thr r,ed*0 Soto400 
3523 a.2*=a3* : a*=sp* ■ 9os-ub3090 Pokel65,l1 

3530 P ok e164, cb/256 • Pok e 163, cb- < int <cb/256 > *236 > sy *33533 : co < nv >-co < nv > -11 

3540 i f < m 1 »0orm 1 *6 > Alidori <r»v> >0thennn< nv>«or*<nv> -1 

3550 ifml«*i thenfort«0to4 : Pt<nv, t>=0 ' next 

3560 i f m 1 =2thenvo*0 

3570 ifml“3thenve*0 

3580 ifml=4orml=5thenrt=0 

3390 ed=0 9oto400 

4997 rem- 

4998 rem mena 

4999 rem- 

5000 P r i ntehr*< 147 > ■+ chr*< 14 >+chr * < 156 >11* ^ P rinttab <13 >" ZTIenu oP zioni"= P ri nt " n" 11 
* 

3100 Print"ZCTIll*Cr*a nuovo blocco dati" 

5110 prinflWEIMCarica file Per modifiche" ' pri«t"WBI" II* 

5120 i,.i3. i t198, 253,0 : 9ett* : onvaUt*)9oto6000,3210 
5210 9osub5890 

5230 t*="c"+t* : oPenl , 8, 2.. " i0 : "+t*+",S-,r" : fort*0to2 : inPut#1, nn<t) ' inPut#l •co<t> : n 
ext 

5236 fory=0to2 : aa*»id<y > 

5240 input#1,t■Pokeaa,t•ift-252then5250 
3245 AA-AA+1•9oto5240 
3250 next•c1 ose1 

5232 P rintchr* CI42 >chr*<147>:*y *33445 : sy *39243•fort-0to2e3:next•P rintchr* CI4 >: So 
tol 20 

5300 Pokebv+21 a 0 '• Printchr* < 147) 11* • Pri nttabC 13) "Jflenu oPzioni " • Print"n" l l* 

5310 Print"rC»lll*iCrea file dati compilati" 

5320 Print"smH2**Crea file dati non compilati" 

5323 P r i nt " SCTdWCont i nv - " 

3323 Print"ZC*l4*»Flne " : Pr int" STEl" L i* 

5338 watt 193. 233. 0 : ?ett* : onval <t*)9oto5350, 5430.- 5232.. 3950 
5350 9osub3890 : oPenl,3.2."10 : "+t*+",£.«":aa=33013 
5410 print#1,Peek<aa> : i f Peek <aa>=252thenctos.el : ■= , oto3390 
5420 a.a-aa-1 '• 9oto3410 

5430 «oaab5990 : t*-"c"+t* • oPenl, 8, 2.- " 10 : "+t*+" , « , v ." fort=0to2 ■ Prir.t#l, nn<t> 

5433 Print#l,co<t> : next 
5440 fory»0to2-aa-id<y> 

5430 Print#1,Peek<aa>:ifPeek<aa)-252then5470 
5460 **■*.*+1 • 9oto5430 
3470 next : closeI9oto5300 

3890 P rintchr* < 147)chr* < 5 >11*chr* <156) : xx*1=y y-4•9osub100 
3900 Pr inf'IIScr i vi 11 nome del branoSffl" : inPutt* : Pr int "!K1" 

5910 ifP eek <166) O0then3910 
5920 return 

5930 Pr inf'Conf ermi Fine?"’• waitl98,255,0 : 9ett* : ift*O M s"then5300 
3960 sy*64739 

3997 rem- 

5998 rem tavola seconda 

5999 rem- 

6000 Printchr*< 147> : z*l : c9=co<nv> : ifed*lthenc9*cb : ed*0 

6010 Pokebv+21', 0 : Pr Int" Voce "ny+1 ; Printchr*<3> l l*chr*< 136) ■ fort=0to9 ' pq <t>=0 : next 
6020 P4C5>=500:p4<7>-246’Pq<6>-15 

6030 di*<0>-" i-1" 

6040 di*<l>«"I I" 

6050 di*<2>«" I-1" 

6060 dl*<3)»"I I" 

6070 di*<4>-"'- 

6080 f ort"4to39steP9 : ;<x=0 : yy*5 ■9o*ubl00 
6090 fory«0to4 ■ Pr inttab< t>di*<y ) : next : nex-t 

6100 xx*5 yy»6 : 9o*ubl00 PrInt"fìttak"tab<14>"Decay"tab<23)"Sust."tab<32>"Rei." 
6110 fort»4to39steP9 ' xx=»0 : yy* 11 ■ 9o*ubl00 
6120 fory«0to4 : Printtab<t>dl*Cy> : next next 

6130 xx=5 : yy-12 : 9osub100 Print"Wavw."tab(14)"Pul*e"tab<23)"Vol. "tab<32>"Vel." 

6140 f ort* 13to30*teP9 : xx=0 yy»17 ; 9osu.bl00 : fory»0to4 : Printtab''t )di*(!y > next : next 

6160 xx-=5 • yy»18 : 9osubl00 : Prlnttab< 14) "Ri t. "tab<!23> "Cont. " ' 9oto6250 

6170 tl—<<Peek<56320)andl6)*0>:t2*notPeek<56320)and15 

6173 ì f11-1then6550 

6173 ift2«0thenr1"299 :9oto6170 

6180 Ìft2-lort2-2then*3oto6300 

6200 ift2“8thenz"z+l : ifz>10thenz*l 

6210 ift2“4thenz«z-l : ifz<lthenz*10 

6250 f'ort"P5toP3+4 : Poket,Peek <t)andl27 : next'fort*PP <z-l>toPP <z-l)+4 
6269 Poket,Peek <t)or128 1 next'P3-PP <z~1) : fort»0tor1 : next'r1=0 : 9oto6170 
6300 ift2»landP4<z-*l><li<z-l)thenpq<z~l)=P^<z-l)+l:9oto6300 
6310 ift2-2andpq<z-l)>0thenpq<z-l>=pq<z-l>-l:9oto6500 
6320 9oto6170 

6500 xx*5 : yy «8 • 9osubl00 : PrintP4 <0) "Il " tab< 14)pq < 1 > "Il " ; tab<23)pq <2) "Il 
6510 Printtab<32)pq <3> "Il " : Pr int "OTTO!" tab<5>nf*<pq <4) ) tab< 14)pq <5> "Il 
6320 Pr inttab<23)pq <6> "Il " ; t*b<32)P<K7> "Il " 

6330 P r i nt " 2ECrcl" tab < 14 ) r.9* < P q < 8 > > ; tab < 24 > n?* < P q < 9 > ) ' 9oto6170 

6330 t*0 i f vo*P q < 6 ) ornvO0then6360 

6557 dt<t>»254 : t*t+l:dt<t)=pq<6> t=t+l : vo-P4<6> 

6560 i fve»P q < 7 ) ornvO0then6569 

6567 dt<t>«253-t«t+l dt<t)=256-pq<7> ve*pq<7) t»t+l 

6569 ifpq<0)*0andPq<1>*0andpq<2>*0andpq<3)*0andP9<4>=0then6650 
















Music Editor 

f6 Permette di ascoltare le tre voci 
contemporaneamente ed esatta¬ 
mente come verrebbero riprodotte 
da MUSIC 4.2 (tutte e tre le voci 
devono contenere dei dati). 
f7 Con questo tasto si entra nella 
fase di ricerca e correzione degli er¬ 
rori. 
f8 Fine. 

Nella fase di “Edit” (f7), vengono 
visualizzate nella apposita Finestra, 
e fatte ascoltare le note della voce 
indicata in alto a sinistra. 

La nota che appare al centro della 
finestra, è quella che si sta ascoltan¬ 
do. A sinistra e a destra, vengono 
rispettivamente mostrate sia la nota 
che la precede, sia la nota che segue. 
Questo accorgimento risulterà di 
estrema praticità al momento di lo¬ 
calizzare eventuali errori. 

Spostando la leva del joystick a 
destra, si otterrà un progressivo ral¬ 
lentamento dello scorrimento delle 
note. Spostandola a sinistra, il con¬ 
trario. 

I tasti f6 e f7, permettono di con¬ 
cludere la fase di edit, oppure di ri¬ 
cominciare da capo. Oltre alle note 
vengono visualizzati i vari parame¬ 
tri d’esecuzione e il punto esatto ove 
inizia e termina un eventuale ritor¬ 
nello. 

Per cancellare una nota o parame¬ 
tro, occorre lasciarla scorrere Fino a 
raggiungere il centro della Finestra. 
Si prema ora il tasto fire per blocca¬ 
re lo scorrimento, e la nota o il para¬ 
metro saranno pronti per essere e- 
sclusi. 

Spostando la leva verso sinistra, 
la nota verrà cancellata; spostando¬ 
la invece verso destra, verrà creato 
uno spazio prima della nota centra¬ 
le, in cui si potrà inserire un’altra 
nota, eventualmente dimenticata o 
il cambiamento di uno o più para¬ 
metri d’esecuzione (chiamando con 
f5 la tavola relativa). La fase di edit 
termina automaticamente dopo 
ogni correzione. 

Premendo il tasto f8 (shift f7), vie¬ 
ne presentato il secondo menu. 

Prima di commentare le opzioni 
offerte dal menu, è necessario preci- 
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£370 i fp t C. nv, 0 > OP'4 < 4 > ther*6620 
6550 ifPt<mv, 3>OP<K0>#164^a < i >thenS629 
6390 i fP t <flv, 4>Opq<2?*16+Pq<3>th«r.6620 
6600 i f F> t < ny, 2>*1 6 +p t < nv, 1 > OP q < 3 > 

6610 9oto6650 

6620 dt v t > =255 : t*t■+1 ■ dt < t > *21<P4 <4 ) +4 > • p t •' «y, 0 >*dt t ' t=t+1 
6625 dt <t >«p q < 3 >-C ìnt <pq<3>/ 256 >«256> '• Pt<nv, 1 >«dt < t > 

6630 t=t +1 : dt <t >*Pq < 3>/256 -Pt<nv , 2>»dt<t> ; t-t+1 ' dt< t > =Pq <0:• « 1 6+pq'I > 

6635 pt<nv. 3>»dt<t> • t*t* 1 : dt Ct >»p q <’2>* 16+Pq <?> • pt<nv 4>=dtf t > ’• t=t+1 
6650 i TP q (!■?'• =rt orpq <!8>=0ornvO0then6700 
6660 ifpq <8>*lthendt<t >=250 : rt=l t“t+l 

6670 i f p q <3>>1thendt < t > =251 • t*t+ 1 : dt < t >*Pq <5'■ -1 * rt=0 ' t»t+1 
6700 ì Ft»0th»nl20 

6710 Poke 1 €5, t ’ Poke163, c9- < i nt <c9/236>*256 > : pok e-164 c9/256 • s y a 99566 
6720 fory=0tot-l ■ Po«<ec9+y , dt '> ■ 9c.su.b900 ' ^jct : ifpq <!9!>=0ther<J 20 
6725 Or.tr.5200 

6727 rem- 

6723 rem dati intest. 

672? retti - 

6730 data32-170.170,170.170,170,170,170,170,170.170,170,170,170,170,170 
6740 data 170,170,170,170.170,170.170,170,170,170,170,170,170,170, 170, 170 
6750 data 170,170,170,170, 1 70, 170, 170,32, 32, 170,32, 32, 32, 32,32, 32, 32, 32,32, 32 
6760 da.ta.32 , 32,32,32, 32,32.32, 32 , 32,32, 32,32, 32,32,32.32,32, 32, 32,32,32,32,32 32 
6770 da.ta.32, 32, 170,32.32, 170-32, 160,223,32,233, 160.32.32, 160,32,32, 160,32,32 
6780 data. 160, 160, 160, 160,32,32, 160, 160 ,160,32,32, 160.- 160, 160,246,32,32,32 
6790 data.32,32,11,32, 170,32,32,170,32, 160.160,32,160,160,32,32,160,32,32,160 
6800 data.32,32,160,32, 32,32,32,32, 32, 168,32 • 32,32, 160, 32, 32, 32,103,119,30,32 
6810 data.32,12,32,170,32,32.170,32, 160,32,160,32,160, 32,32, 160,32,32,160,32 
6820 data32,160,160,160,160,32,32,32,160,32,32,32, 1 60,32,32,32,81,32,81,32,32 
6830 data?,32,170,32,32.170,32, 1 60,32,32,32,160,32,32,160,32,32,160,32,32,32 
6340 data.32,32, 160, 32, 32, 32, 1 60, 32, 32,32, 160,32,32,32, 32,81.32, 32,32,13,32, 170 
6850 data.32,32,170,32,160,32.32,32,160, 32,32, 160, 160, 160,160,32,32, 160,160 
6860 data160,160,32,32,160,160,160,32•32,160,160,160,246,32,93,32,32,32,2,32 
6870 data 1-70,32,32,170, 32, 32,32,32,32,32,32,32, 32,32,32,32,32,32,32,32,32,32, 32 
6880 data.32, 32.32, 32,32,32,32,32,32,32, 32, 74,75,32 -32,9,32, 170,32,32,173,32, 120 
6890 data.96,120, 96, 120,96, 120, 96, 120,96, 120,96,120.96 -120,96, 120,96 • 120,96 
6900 data. 120,96■120,96,120,96,120,96,120,96,123,32,32,13,32,170,32,32,170,32 
6910 data120,96,120,96,120,96,120,96,120,96,120,96,123,96,120,96,123,96,120 
6920 da.ta.96 120,96, 120,96, 120,96,120, 96 • 120,96,120,32, 32,32, 32, 170, 32, 32, 170 
6930 data.32, 160, 160, 160, 160, 32,32, 160, 160, 160,223.32.32.160, 160, 160,32, 32 
6940 data160,160,)60,32,32,233,160,160, 223, 32.32,160,160,160, 223,32.16.32 
6950 data178,32,32,170,32,160,32,32,32, 32, 32, 160,32,32.160,32,32,32,160,32,32 
6960 data.32,32,160,32,32,32, 160,32, 32, 160, .32,32-160,32.32,160,32,18,32, 178,32 
6970 data.32,170, 32, 160, 160,160, 32, 32, 32, 160,32,32, 160, 32, 32,32,160.32,32,32 
6980 data32,160,32.32,32,160,32,32,160,32,32,160.168,160,105,32,15,32,170,32 
6990 da. ta32,178, 32 • 160, 32,32,32,32, 32, 160,32,32, 160,32, 32,32,160,32, 32,32,32 
7000 data160,32,32,32,160,32,32,160,32,32,160,32,160,32,32,4,32,170,32,32,170 
7010 data32, 168 ,160.160,160,32,32,160,160,160,105,32,32,160,160,160,32,32 
7020 data.32, 160,32.32, 32, 95, 1 60 , l. 60 , 10 ?, 32,32, 160,32,95,160,32,21,32, 170,32 
7030 data32,170,32,111,96,111,32,111,96, 111, 96, 111,96,111,96, 111.96,111,96 
7048 datali 1,96, .111,96, 111,96, 111 . 96, 11.1,96, 111, 96, 111,96,111,32,32, 3,32, 170 
7050 data.32 • 32, 170,32,32,32, 32,32, 32, 32,32, 32,32, 32,32.32,32,32, 32,32, 32, 32,32 
7060 data-32,32, 32, 32,32,32,32, 32, 32, 32, 32, 32,32, 32, 20,32, 1 7 0,32,32, 170, 32 ,119 
7078 data. 106,32,99,99,99,99,99,99,99,99,46,99.99,99.99,99,99,99,99,99,99,99 ,99 
7090 data.99,99,99,99, 99,99,32,32, 32, 9,32, 1 70. 32 , 32 ,170.32, 120,106,64,73,77,78 
7090 data32,8?,73,73,73,32,35,93■78,35,72,32.85,73,95,35-73,85,73,73,79,85, 73 , 9 ? 
7100 data£4,32,32,15,32,170,32,32,178,32,249,106,64,75 103,131,32,32,93,93,93 
7110 data93,93,93,77,74,75,32,74, 75 ,93,74,119,32,93,93,?3,74,119,74,73,32,32,14 
7120 data32,170.32,32,170,32,160,32,32,64,64,64, 64 ,64,64,64.64,64,64,64,64,64 
7130 data.64,32, 64,75,64.64,64,64,64,64,64,64.64,64,7? ,32,32,19.32, \ 78, 3?, 32, 170 
7148 da.ta32,32,32,32,32,32•32,32,32,32,32,32,32-32,32,32,32,32,32,92,32,32, 32,32 
7150 data.32, 32, 32,32, 32, 32, 32, 32.32, 32, 32,32, 170,32,32.170, 178, 170, 170, 170 
7160 data. 170, 170, 170, 170, 1.70, 170, 170, 170, 170, 170.170, 170, 170, 170-170.170 
7170 data. 179, 170.170, 170, i? 0 , i? 0 , 170 .170 .1 70 . 170 , . 170 , 170 , 170 , 170 , 170, 170 
7190 data170,32 

7197 re-m- 

7199 rem inizializz. \.m. 

7199 rem- 

7200 data 169,1.133,176.238, 1 74 ,208,2, 230, 175, 169, ?*=? . 133 1 66 ■ 24 ,96 
7205 data169,8,168,63,153,63,9,196.208,250.169.19,141,251,7,173 
7210 data 196.8,201,73, 208,21,17:3, 196.9,201,9' : ' .208. 14.173 - 188-9 
7220 da.ta.201 ,75,208,7, 1 7 3,195,8,281 • 69,240, 1,0 • 1 69 • 9 • 141.88 

7230 data3,141,91,3,141,97,3,141,108,3,169.62-141. 94 . 9,140 

7249 da.ta.42, 298, 140,21,208.169.21?, 141.7.288. 169 , 147, 141 • 6 • 288 • 234 

7250 da.ta234,234,234,234, 169 , l ?4, 133, 164, 169 24. 1 3.3.163,169, a . 133, 166 
7260 data. 169,40,133,165,169,216.133.169,169.40. 193 .167.16?■0•139,169 
7270 data 162,3,177,163,145,165,169,5,145. 16 ?. 200 • 1 °6. 160 ,or*. 248,830 
7288 data. 1 64 ,238.166.230, 1 63 .282 • 209.6.16? • 152.199.1 69 , 288 ,228.16,226 
7290 data. 173,5,7,201,73,208,14,173,55,7,28J . 99.209.7 . 173,65 

7300 data7,281,73,240,1,0,169,246,141*32.208.14 1 . 33 . 203 . 173,17 

7318 da.ta.209 ,9. 16 , 141.17,208,96, 169,25?. 141,137.191 ■ MI 1 97 . 141 .297 

7328 dat a 145.169.0.234 ■ 234 ■ 234 . 

8997 rem- 

8998 rem dati‘basic 

8999 rem- 

9000 data 18.32,146. 16 ?,132.165•19?•18 167.< 46 .13.9?. 146 . 1 65•13?.1*5. 13 ?. 1 * 5 . 1 ?8 
9083 data 18■167, 146 ,19.3?.146 165. 16 ?.19- 1 8?.146 

9805 da ta 0, 1 ■ 3 • 5 • 6. 9 . 10.12 • 1 3 .1 5 .1 ? . 13 . ?0 j>? . 04 . ?= . 27.2° • 38 3? 
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sare che in questo programma ven¬ 
gono usate due strutture di dati dif¬ 
ferenti. Una è costituita dai dati del¬ 
le tre voci separate, l’altra, invece, 
dalle tre voci unite assieme. Si è reso 
necessario distinguere queste due 
strutture per dare la possibilità di 
continuare la manipolazione di un 
brano in tempi successivi. Infatti per 
modificare o aggiungere altre note, 
si devono avere in memoria le voci 
separate e non mescolate. 

Tramite questo menu, si possono 
perciò creare due tipi di file: uno 
destinato alla sonorizzazione di altri 
programmi, e l’altro richiamabile 
all’inizio di Music Editor per mani¬ 
polazioni varie. 

Ai due tipi di file può essere dato 
un unico nome; provvederà il pro¬ 
gramma a diversificarli mediante 
raggiunta di un carattere d’identifi¬ 
cazione. 

L’unica limitazione di questo pro¬ 
gramma è imposta dalla memoria 
lasciata libera dal programma BA¬ 
SIC e dalla routine in linguaggio 
macchina, usata per memorizzare i 
dati delle tre voci. 

Ad ogni voce sono destinati 2 
Kbyte di memoria, sufficienti a con¬ 
tenere circa 1000 note: ogni brano 
potrà perciò contenere non più di 
3000 note, ma sono molte e suffi¬ 
cienti per un ottimo risultato. 

Il computer nella sua sonorizza¬ 
zione diverrà personalizzato e riflet¬ 
terà la parte più nobile del suo ope¬ 
ratore. 


Descrizione del programma 

In questo paragrafo si evidenzie¬ 
ranno solo i blocchi principali del 
programma. 

La parte scritta in BASIC, si oc¬ 
cupa di trasferire e coordinare le 
routine in linguaggio macchina, di 
leggere i parametri d’esecuzione, 
disegnare la tastiera mediante i ca¬ 
ratteri semigrafici, leggere il joy¬ 
stick, spostare la crocetta sulla ta¬ 
stiera, e trasformare la sua posizio- 
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9^10 d*ta.24,33-50,67,33.99-'l 13, 131,147.163. 179.193-211 . 227.243.298.274 .906 

9020 data321,2,2.4,4,7.9,11 .11,14,16,16,19,21.23,23■26,23•29,31 .? 1 
9030 #43, 43, 60.60, 91 • 107.123-123-133. J 7i , i7i .203.213 235 ?95.? 66 .2?7.?£2 

9033 dat*314.?14 

9040 data "Pausa " , "Do” • "Do#" • "Re" . "Re#" • "Mi " ■ " 6 ? " . "F*#" . "3<~.i " . "9ni #" . "| •» 

9043 data"La#"."Si" 

9030 data" Parar*. " . "Voi. ", "Vel . ", "Rit. ir*", "Ri t Fi" . "Pa.usa" . "Cine" 

9060 data 1269, 1273, 1297 , 1296,1*09.1313. 1 327 .1536 , 1753.1 7 *? 

9070 datai?, 15 . 13 ,15,3.960,13,255,5.1 
9030 data"Sin."•"Tri."."Qua.","Rum." 

9037 rem- 

9093 rem mu.aic 4.2 

9089 rem- 

9090 data21 6 ,120,169,234, 141 .21.3, 169 , 49 .141•20.3.89.24 169,0 14? •1.212-141.9 
9100 data212,141,15,212,169.129.133,166.169,233.133-163.16?.165.72.165 

9110 data166,72,160,0,177.165.92.233-159.164, 165 , 196 ,53-208, 15 .164. 166.196 
9120 data.56,208,9.104,104,169,0.133,165 133 166,96.201,252.208•224,193,97 
9130 date.208, 29, 104, 133, 166 , 104, 13?. 165. 162. 1 , 134, 164 , 1 ^ 4 .171 134, 179 ’ : 94 
9140 datai 68 , 134 . 167 , 1 69,223,141,20,3,169-159 .141 21 .3,96,1 04 . 104 . 76.133 
9130 data 158,216,165,167.133,168.162,0.24,214,164,288.23,181,163,157.4.212 
9160 data 160,0• 177 ,163,32,238,1 59 ,201.0,208,!0■1 7 7 . 1 * 5 .?2,239, 159.149 144 
9170 data76.21'1,159.201.253,208.10-177.165,32.238,159.133.167,76,229.159 
9180 data.201.255,208-42. 177 165.72-238. 159 . 149 , « 53 , j 77 , 165.32-239, 159 . 1-,7 
91.90 data?. 212, 177, 165-32,238, 159, 137,2,212, 177, 165-32.??». 159,137.5.212 
9200 data 177,165,32,238,159.137, 6 ,212■76.228,138,201.254.209 11 . 177 , 1 * 5.99 
9210 data238,159-141-24,212,76,228,133,201 251.286,69,165.169,41.240,208 ^ 

9220 datai3,177,165,32,238,159.103,248.24,133,169,76. 104 .139,32,238,159 
9230 data198,169,165,169.201,240,240,26 . 1 60 . 0 . \ 77 . 165.32.238.159.72 .177 
9248 data 163,32,238,159.101 163,133,165. 104 ,181,166,133,16*,24.76•229•159 
9250 data.32.238,139,32,239,139.169,1.133,169.76,228,153.201.232,208,37 .169 
9268 data.0,141,4.212,141,11,212,141,18,212,162,9,149,162,202.208.251.133 
9270 datai 77, 169,60, 13?•178.1 6.9,234.141 ,21,3- 169,49.141,20, 3, 76,49,234, 168 
9280 data 183, 177, 1.57, 157.0.212, 1.95, 11, 158- 137.1,212.160.0. 177,163.32.233 
9290 data 159,149,164,169,1,21,163,157.4.212.138-105,7,201.21,200,3.76,229 
9300 data 159,170,24.160,0.76,219,158,198.1 68 , 288,3.76.211 
9318 data 198,163.165,165.201,255,208,2.198.166,104-24,96 

9312 rem- 

9313 rem minuetto 

9314 rem- 

93 1 5 data254,15.253,3,255,64■9. 5 .76,8,0,2 
9320 da.ta.255 , 16 , 0 , 0 , 76 . 70 , 0 . 18 , 235 .16,0, 0 .76. 70 . 0.1 g. 69 ,1 

9330 data.4.69,4.67,8/47,8•43,48•55•16•50,8.47.9■*9.J 6.*8.R. 47 ,R,62•8.50.8.6?.8 .4 
8,8,43 

9348 data48•60,8,50,8,60,16.48,8,58,8,62,1•49.8.68.3.* 9 . 4 .60. 4 .50.p.62•*•60.8 45 
• 8 , 42 

9350 da.ta.48 ,50, 16,48, 8 , 45, 8 , 57 , 16,48,8,58,8.60■8,48.8•60•9•43.R. 4 ?.48.3*.S. 30 ,R. 
39, 16 

62>8,52.8,45-48.61 


, 1 “ 


,76,a?.034,72 


■ 9 , 66 , 4■67 


.55,0,61. 


*4 ,9 59 . 9 .50, 8 .43,1 6 •67. 8 , 


8.52.8.61.8 
8,55.0.67.1 

8.66.2.49.8 


9360 data47.8.58,8,67,12•50,?.53.R.64 
■ 55,8 

9370 dat *67.12,49.R,55•3,64,4.62* 8,52-9.45•Aft,61.8 > 5?.8.61 .0.52.8.61 
2,49,8 

9380 data55,8,64-4,66,8, 50.3.50.16,*2 
,45,16 

9398 data64,2.66,2,64.2,66,2,55.8,64,2,66.2• 64.2 • 62 •!6.50, j *, 50.8.45.R.».oo,n,oa 
,50,8,0 ' ' *“ 

9400 data24,0,8.252,254,15,253.05,235,16-0.0.91 . n . 60 . r ^ . 0.15.0,15. o«o. -1 

9337 -- 

9338 rem rou.t ? n* 1 . m. 

9339 rem- 

9600 dat a162,1,134,163,134.165,134,167.16R.137.133.168.169•197•1?7.j 70 
9610 datai 69,237, 133, 172. 169, 1 Ri . 139, 1*9.169.138.133, \->\ . 1*9, 14-;, 133, 1 73 
9620 data 169,245.133.174,169,128,133,17»,.162•0,134.1*6.194.17*,134.)?? 

9630 data216,24•21^,163.208,65.160,0.161,16ft.R£.287.130.14* 

9640 data. 174,32,222,130,201,253,203.1?.l*!.163.32.207.130.145.174.30 
9650 dat a222,130, ]. 44.228,234,201 . 254.240 239.201.251 . 203.31.1*11 6.9?9? 

9660 da.ta.207 , 130, 145.174 .ro, 222.1 R8.1 65 . J 77.1 45.17<i , 90 ' òoó -130,165,176 

9670 data 145,176.92,222.130,132.166.144.191.76,187.1P0.701 03».009.01 

96R0 data 169.5,133,164.161,168.32,207.130.145.174.92.22? 130.19R~i64 

9690 data208 242,7*.54,130 281 .250.208•10.132,! 77.234.£94.93.56.159 

9700 dat*234,144,299.201,252,208,10.169.0.162.15.149.1*0 .oro. pop,051 

9710 dat a96, 161.168.32.207.130, 145.174.32.222.1 90 149. Ì*r7i ?r“.'i 05 .'? . 201 .6 

9720 data283.6.162•0,24.76.50.1 rr, t or, j 60.0.oaq,047.094 

9730 dat? 234•246 168-203•4•232•246,163.202,24,96 094,004.094.094 094 

3740 d«t* 7 2■198•t74,165•174.O0j .055,009,2.19R.175.165.166•20i,235,208 

?730 da E a 6.230,17*.208.2•230.177,104.24.96.094.094,234,234•234 

9 7 60 data162,0,164.165,24,177.16R,129,? 63•201.252.208•4.32.165,190 

9770 data96,32,19.131,144-239,230,163,203.2.230,164.24.36.5:34,234 

9780 data234.162,0.16*.J6*.165.1*9.199.16*.165.164 ,irr.j67.24,161■16R 

9790 dat«201.232.240,5,32,19,131,144.245 161•163,145.163,32,67.131 

9800 data 1 4-4 • 247,96.234 • 234.234.198.1 63, 1 65,1 6? . 201 • 255 203,2, 198.164 

9810 data 16*.164.24.197.167,208-4,1*5,163.197.166.17* 2.56,96,24.96,234.234 

9330 data 169.5,133.252*169.24.133.251.162-7,169,32,160 25.145,231 

9840 data136,208,2?1,24- 1 65,051 ,105.40,139,251,! 65.25?.105,0,J RR.252 

9830 da t a 202 • 208,231 • ’ a 6 . ??4.234 • 2 -'4.0R4.094 
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ipP"_Music Editor_ 

ne, quando si preme fire, nel numero 
della nota relativa. Sempre da BA¬ 
SIC è gestita la fase di edit e la crea¬ 
zione/lettura dei file. 

Il programma BASIC termina al¬ 
l’indirizzo 26111, rendendo così uti¬ 
lizzabile la RAM che va da 26112 a 
40960. 

In questo spazio sono collocate le 
varie routine in linguaggio macchi¬ 
na, i dati relativi alle tre voci (l a 
voce: 33673/35514, 2 a : 

35515/37356, 3 a : 37357/39198), e i 
dati compilati (33013/26112). 

All’indirizzo 33280 inizia la routi¬ 
ne che compila i dati delle tre voci. I 
nuovi dati elaborati sono da essa 
collocati nella zona di memoria che 
va da 33013 a 26112. Questa routine 
viene chiamata ogni volta che si vo¬ 
gliono ascoltare i dati fino a quel 
momento inseriti. 

In pratica non ci si accorge della 
sua presenza, in quanto l’elabora¬ 
zione è svolta in tempi brevissimi, 
caratteristica questa che accomuna 
tutte le routine scritte in linguaggio 
macchina. 

Quando nella fase di edit si can¬ 
cella o si inserisce una nota o un 
parametro d’esecuzione, una routi¬ 
ne che inizia all’indirizzo 33533, 
provvede, sempre in tempi brevissi¬ 


mi, a spostare avanti e indietro tutti i 
dati successivi in modo da creare 
uno spazio per inserire un’altra nota 
o cancellarne una già esistente. 

All’indirizzo 39240 inizia una 
routine che serve ad inizializzare il 
programma. 

In memoria (da 40369 in poi) è 
presente anche la routine Music 4.2, 
che viene utilizzata per ascoltare i 
dati compilati, in modo da rendersi 
subito conto dell’effetto finale. 

Prima di concludere vorrei mette¬ 
re in evidenza due peculiarità del 
programma, che potrebbero tornare 
molto utili per altri programmi. 

Come si sarà notato, appena dato 
il RUN, le scritte presenti sullo 
schermo scompaiono: ciò non av¬ 
viene perché si è dato un comando di 
CLS, bensì perché vengono nasco¬ 
ste, attivando il “BLANKING” di 
schermo, esattamente come quando 
si usa il registratore. Ciò permette 
una velocità di programma legger¬ 
mente superiore. 

Per attivare il Blanking occorre 
digitare POKE 53265, PEEK 
(53265) AND 239; per disattivarlo, 
POKE 53265, PEEK (53265)OR 16. 

La gestione del cursore è affidata 
ad una routine del sistema operati¬ 
vo. È possibile così simulare l’istru¬ 


zione BASIC mancante “PRINT 
AT X, Y”, evitando perciò lunghe 
file di caratteri di controllo cursore, 
specie per quanto riguarda la tabu¬ 
lazione verticale. 

Le coordinate del punto dello 
schermo ove si vuole iniziare a scri¬ 
vere, devono essere inserite nelle lo¬ 
cazioni 214 (Y) e 211 (X); si richiami 
poi all’indirizzo 58732 la routine 
“PLOT” (POKE 211, X : POKE 
214, Y : SYS58732). 

Si raccomanda di usare la massi¬ 
ma attenzione nel ricopiare il pro¬ 
gramma, specie la parte dei dati per 
la routine in linguaggio macchina. 
Infatti se un eventuale errore BA¬ 
SIC viene segnalato, uno in linguag¬ 
gio macchina provocherebbe quasi 
sicuramente il blocco del calcolato¬ 
re. 

In ogni caso si consiglia di salvare 
il programma prima di dare il RUN, 
per non dover riscrivere tutto in ca¬ 
so di blocco del computer. 

( Continua) ® 


Il programma Music Editor è in vendita 
presso la ditta KLIMBIM, Via Giusti, 10- 
Trento - Tel. 0461/981155 


TELEMATICA 

Dal viewdata all'office automation 


Tutti oggi parlano di telematica, di so¬ 
cietà dell'informazione, di banche da¬ 
ti. 

Ma cosa è la telematica? Un insieme 
di servizi di videoinformazione e tra¬ 
smissione di dati e testi. Innanzitutto la 
videoinformazione. Essa rappresenta 
un servizio che. utilizzando le reti telefo¬ 
niche pubbliche, permette ad un 
qualsiasi utente, dotato di un televiso¬ 
re a colori adatto, di richiedere e rice¬ 
vere informazioni memorizzate su op¬ 
portune banche di dati (Videotel e Te¬ 
levideo). Poi vi sono i servizi pubblici 
per la trasmissione di testi scritti da ter¬ 
minale a terminale ed il fac-simile. Essi 
sono basilari, fra l'altro, per la realizza¬ 
zione della “posta elettronica”. 

Le applicazioni della telematica sono 
infinite ed in parte ancora da scoprire. 
Essa è, innanzitutto, un nuovo e poten¬ 
te "medium" nel campo della comu¬ 
nicazione e dell'informazione, ma è 


anche lo strumento principale che ri¬ 
voluzionerà l'organizzazione e la pro¬ 
duttività del lavoro di ufficio, per realiz¬ 
zare quello che si chiama "office auto¬ 
mation". 

Questo libro intende dare un impulso 
alla conoscenza della telematica, e si 
prefigge di offrire al lettore un panora¬ 
ma dei problemi connessi con questa 
disciplina e con i relativi aspetti appli¬ 
cativi. Le caratteristiche dell'esposizio¬ 
ne fanno si che il volume possa propor¬ 
si indifferentemente all'esperto EDP e 
di organizzazione, quanto allo studio¬ 
so che si accosta per la prima volta a 
questa materia: l'esperto troverà un si¬ 
curo riferimento per la risoluzione di 
problemi teorici e pratici, mentre lo stu¬ 
dioso troverà, in una forma organica, i 
principi fondamentali indispensabili 
per la conoscenza delle varie proble¬ 
matiche. v 



di Riccardo 

Cod. 518D Pag. 186 
L. 19.000 


Sommario 


Telematica e suo sviluppo - Evoluzione 
dele telecomunicazioni perlosviluppo 
della telematica - Reti per telecomuni¬ 
cazioni - Reti di calcolatori e banche 
dati - Videotex e Teletext - Altri nuovi 
servizi di telematica - Funzionalità del 
sistema videotex - Sviluppi del videotex 
nel mondo - Telematica in Italia - Svi¬ 
luppo delle comunicazioni - Applica¬ 
zioni della Telematica - Comunicazio¬ 
ni di massa e aspetti socio-economici 
e giuridici. 


Potete acquistare il suddetto 
libro nelle migliori librerie oppu¬ 
re scrivendo direttamente a: 

Gruppo Editoriale Jackson - 
Divisione Libri - Via Rosellini, 12 
20124 Milano 
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persona' e 


home compii 


Provando e riprovando 


Nicole Bréaud-Pouliquen 

La pratica dell’APPLE 

Per imparare a usare un 
calcolatore bisogna... usarlo. 

Solo così, ad esempio, è 
possibile scoprire e sfruttare 
le immense risorse operative 
offerte dall’APPLE. Provando, 
riprovando e... leggendo un 
manuale come questo. 

Scritto da un vero esperto, il 
libro si compone di 3 capitoli 
fondamentali: 

• Il sistema APPLE II” 
dedicato all’hardware e al 
software 

• “Il BASIC APPLESOFT” 

con le istruzioni, 
i sottoprogrammi, 
gli operatori aritmetici e 
logici 

• "Il disegno e la grafica” 

con le zone di memoria RAM 
e le funzioni grafiche. 

Il tutto arricchito da numerosi 
esempi ed esercitazioni con 
soluzioni: affinchè la pratica 
abbia l'immediata 
soddisfazione del riscontro. 

130 pagine 
Lire 10.000 
Codice 341D 



CEDOLA DI COMMISSIONE LIBRARIA 



Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 



VOGLIATE SPEDIRMI 


Prezzo unitario 


L. 10.000 


□ Pagherò contrassegno al postino il prezzo indicato più L. 2000 per contributo Ateo 
spese di spedizione. 

Condizioni di pagamento con esenzione del contributo spese di spedizione 


□ Allego assegno della Banca 


□ Allego fotocopia del versamento 
su c/c n. 11666203 a voi intestato 

□ Allego fotocopia di versamento 
su vaglia postale a voi intestato 


Spazio riservato alle Aziende. Si richiede l'emissione di fattura 















Frogger 

per Sinclair ZX81 


Un famoso gioco 
trasportato 
su Sinclair ZX81 

di Giovanni Tisi 


Q uesto programma è la ver¬ 
sione ZX81 dell’omonimo 
gioco da sala, in formato 
ridotto e semplificato. 

Ogni spiegazione riguardo alla 
struttura e ai limiti del programma è 
assolutamente superflua per gli ap¬ 
passionati del settore; d’altronde 
un’occhiata al listato ed ai relativi 
commenti è il modo migliore per 
capire come funziona. 

Un solo appunto per quanto riguar¬ 
da il caricamento della routine in 
codice macchina, che potrebbe sem¬ 
brare un po’ artificioso. 

La suddivisione in più stringhe ef¬ 
fettuata secondo criteri funzionali 
consente una più immediata com¬ 
prensione dell’algoritmo utilizzato, 
di modificare facilmente il rettango¬ 
lo di gioco, e anche di digitare entità 
comodamente manipolabili. 
Un’ultima considerazione: il listato 
è parecchio lungo e contiene nume¬ 
rose variabili; è una precisa scelta 
che consente di ottenere fino a 12 
schemi diversi sempre più difficili. 


Istruzioni 

Battere la linea: 1 REM seguita da 
66 caratteri qualsiasi e poi usare 


RUN 9000 per caricare il codice 
macchina; a questo punto dovrebbe 
apparire come nel listato. 

Una volta caricata la routine in 
linguaggio macchina memorizzare il 
programma per mettersi al sicuro da 


eventuali errori che potrebbero 
bloccare il calcolatore. Lanciato il 
programma con RUN, con la pres¬ 
sione di un tasto qualsiasi (salvo 
BREAK) si comanda il salto della 
rana, l’unica operazione possibile. 



Figura 1. Quadro di gioco: la rana, scarsamente visibile in mezzo al bordo 
inferiore, deve saltare da un tronco nero all'altro. 


COMMENTI AL PROGRAMMA 

1010 Cancella un po’ di tempo e controlla che non sia finito. 

1050 Sposta lo schermo. 

1080 Segue gli spostamenti laterali (di trascinamento) della rana. 

1130 Avanza. 

1150 II trascinamento cambia segno. 

1170 Percorso completato. 

2000 Le varie cause di morte vengono riconosciute e commentate viene 
aggiornato il punteggio e, se è il caso, viene chiamata la ripetizione 
dello schema. 

3000 Conclusione dello schema. 

8020 Passa alla routine assembler le variabili di schermo. 

8040 Set di tutte le variabili di stato. 

8100 Predispone la cornice. 

8200 Le varie sottostringhe vengono assemblate a comporre lo schema; si 
aggiornano i contatori di schema. 

9000 Allocazione istruzioni in codice macchina. 
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Frogger 
per Sinclair ZX81. 


1 REM 3 — I Lri iis»"' 

5N.0LN SPNOLN SPNDLK 
ij~ NDLhi JgiiFrHDLN 


X?7'?TftN "PI ssTSM p::?f?trn 


■ìDLH ®RNDLN 55 
SgRNDLN liRNOL 
5LN 8ÌRNDTRN ” 


3. © 
li 
3S 
13 
i«i 
:15 


:£M *********************** 
REM * *■ 

REM * FROG ?. 

REM * BY GIOURNNI TISI 
REM * * 

REM a PERSONRL SOFTUflRt «■ 
REM **»**a-**a-3 *****•*•**«• *•***• 
GOTO 7308 


REM_ 

POME DF+3S+T,3 
EET T=T-T0 
IF T< =0 THE hi 3 OTO £003 
E ET Xa'JSR .160X4. 

XF H>(5 THEN E ET Y=Y+DIR 
IF Y<2 OR Y>29 THEN GOTO 


XF INKEY$s' 

LET H=H + 1 
LET £>XR = -1*DIR 
ROME P01+Y,128 
LET P01=PQ1~85 
XF PEEK sPOl+Y)=0 


THEN GOTO 


20 
1000 


THEN GOTO 


3000 


1& 

ISO 
1000 
1010 
1015 
102® 
i@à'E 
108© 

10S0 
30 

use 

113© 

1133 
U3S 
Ì14S 
115S 
2©S0 

118S POKE POl+Y.23 
1173 IF H = 7 THEN GOTO 
.'.130 GOTO 100© 

2000 rem gLmisrm 

2©02 LET X=USR 16514 
2003 XF T<=© THEN PRINT 
0000 " 

20©5 LET CRUS=£Y<2 OR Y>£9) +1 
2013 POKE PO 1+Y , 4. 

2015 PRINT RT £3-2#H,Y-3; C$(OPUS 

2018 POR 1=1 TO 4 

2017 NEXT I 

2020 POKE POl+Y.27 

2030 LET PTI=PTI+10*SCH*H+INT T 
204-0 PRINT RT 2,8;PTI;" PUNTI" 
2050 POKE PO 12Y.. 0 
2052 LET RftNE =RRNc — 1 
2354 FOR 1 = 1 TO 5© 

2056 NEXT X 

2058 IF RANE>© THEN GOTO 8105 


GT 1,4; 



207© PRINT RT 20,0.1 "B NEULN RIPfi 
RTE" 

2080 INPUT R* 

2090 GOTO 700© 

2100 STOP 

300© REM ;_ 

30©5 LET X =USR 16514- 

3007 FOR 1=1 TO 5 

3008 NEXT X 

3009 LET X =16514- 

3010 PRINT RT 5 DOUE.; " 

3011 FOR 1=1 TO 1© 

3012 LET X=USR 16514 

3013 FOR U=1 TO 2 

3014 NEXT U 

3015 NEXT X 

3028 LET PTI=PTI+103*SCH+INT (5* 
TJ 

303© XF SCH <=3 THEN GOTO 3100 

3040 LET SS =SS +1 

3050 LET SCH=3 

3055 LET T0=.a5+,35*S5 

3050 GOTO 810© 

303© REM 

3005 LET DF=PEEK 16396+PEEK 1639 
7*256 

3018 LET PDF =233 +DF 
3820. LET DD--XNT < PDF X2565 


3025 POKE 16515,PDF-256*DD 
3030 POKE 16516,DD 
304© DXK C$(2,4) 

3045 LET C$£ li =”PLOP" 

■305© LET C$ t£) = “OUT" 

3055 LET PTI=© 

3057 LET RflNE-3 
306© LET SCH =Cì 
■3085 DXM U $ £ 3,7 ) 

3066 LET U$ < 13 ="J 

3067 LET U$>C2)=" 

3068 LET U$£3?=- 

3870 LET SS=1 
308© LET T0=.3 _ 

310® rem aaaas aiMSaa» 

3103 LET SCH=oCH+l 
31©5 CLS 

3110 PRINT ”****+*+***** FROG 3H 
*•*■******•*•*«•*’ 

31X5 PRINT "T IME* 


3118 LET T =35 

3120 PRINT PTI;" PUNTI":TR6 12;S 
XH+4-* (SS-1) ; • ,B 5CHEMa",TàB 25; (4- 
RRME) j "* RfiNfi “ 

3122 PRINT 

iiasPRi^ 

3^^0^RX=5 TO 18 

anq CDTK1T "®i 



■3150 

3155 

3160 

820© 

3205 

3210 

3215 

3220 

3230 

3240 

3245 

3250 

3260 

3255 

8270 

3275 

3280 

3285 

329® 

3295 

3308 


LET DOUE=INT £20*RND)+3 
PRINT RT 5,DOUE;"===" 

PRIN T RT 19. 16; 

rem WS UEM3ÈÈ 

LET P * = Uj (SS) 

LET Q $ = "WÈSM 
LET R $ 

LET B$ = ©$ 

FOR 1=4 TO SCH STEP -1 
LET R$=R$+P$ 

LET B$=B$+£3$ 

NEXT I 

FOR 1=9 TO 15 STEP 2 
PRINT RT I,2fSCH*RND+l;fi$ 
NEXT X 

PRINT RT 7,1J B*; RT 17,1.;B* 
LET P01--DF+628 
LET H =0 


LET Y=16 
LET DIR=-1 
GOTO 1000 


9010 

LET 

s* = 

"066 

094 

035 

126 

043 

119 

035 

016 

243 

115 

201 

• 1 


9038 

LET 

D* = 

"066 

094 

043 

126 

035 

119 

043 

016 

249 

11S 

201 

«• 


9050 

■% 

LET 

U# = 

"001 

066 

000 

009 

201 

9060 

LET 

P* = 

"033 

©00 

000 

022 

029 

205 

169 

064 

205 

ICO 

064 

205 

18 ® 

064 

205 

180 

364 

205 

169 

064 

205 

180 

064 

205 

185 

064 

205 

180 

064 

205 

169 

064 

205 

180 

064 

205 

185 


054 201 “ 

9100 LET T*=P$+S*+J*+D$ 

92©0 LET P = 16514 

9210 FOR 1=1 TO LEN T $ STEP 4 

922© POKE P.. URL T!J>(I TO 1+2) 

9230 LET P=P+i 

9240 NEXT I 

925S STOP 

3990 FOR 1=1 TO 8 

9991 NEXT I 

3995 RETURN 


Listato 1. Listato Frogger la linea 1 apparirà così dopo avere eseguito RUN 9000 solo prima di giocare. 
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Dama cinese 
per Sinclair ZX81 


Dama cinese o 
solitario? 

Meglio “solitario 
cinese”! 


di Angelo Motta 


E cco una maxi-versione 
ZX81 del gioco meglio co¬ 
nosciuto come solitario. 

Si gioca su un campo di 64 caselle, 
contro le 33 della versione standard. 
Ognuna contiene inizialmente una 
pedina, salvo la casella centrale che 
è vuota. 

Scopo del gioco è mangiare ad 
ogni mossa ed in ogni direzione le 
pedine in modo che ne rimanga una 
sola sulla scacchiera. 

Per mangiare occorre muovere 
scavalcando una pedina e finendo in 
una casella vuota. 

Una variante più impegnativa è 
quella di far coincidere l’ultima 
mossa con la casella centrale della 
scacchiera. 

Se si gioca in due a mosse alterna¬ 
te lo scopo del gioco diventa di im¬ 
pedire la mossa successiva all’avver¬ 
sario. 

Dopo aver visualizzato la scac¬ 
chiera, il computer controlla la vali¬ 
dità delle mosse eseguite e provvede 
aH’aggiornamento della situazione 
di gioco. 

Quindi verifica se è possibile ese¬ 
guire mosse successive; in caso con¬ 
trario segnala la non riuscita del gio¬ 
co. Se invece è rimasta una sola pe¬ 
dina si congratula con il giocatore. 

La spiegazione del listato è pre¬ 
sentata in figura 1 e 2. 


10-40 Fase iniziale: presentazione del gioco e chiamata subroutine 1000 in 
caso di richiesta spiegazioni. 

100-220 Vengono inizializzate le variabili di controllo del gioco. 

310-450 Stampa la scacchiera sul video. Se si desidera vederne la formazione 
togliere le linee 110 e 450. 

500-662 Inserimento e controllo validità mossa. 

665-700 Aggiornamento scacchiera e stampa mossa. 

710-745 Controllo pedine rimaste e possibilità di effettuare la mossa succes¬ 
siva. 

750-890 Fase finale. 

1000-1050 Subroutine con le spiegazioni del gioco. 


Figura 1. Spiegazione delle principali linee del programma. 


Linea 320 

Caratteri cod. 131 - 3. 

Linea 325 

Caratteri cod. 133-5. 

Linea 335 

Caratteri cod. 135-4-1-2. 

Linee 370 e 700 

Carattere cod. 52 (lettera O). 

Linee 400, 680 e 690 

Carattere cod. 22 (simbolo -). 


Figura 2. Codici dei caratteri grafici per la formazione delta scacchiera. 
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* * • " v * ********** :• 

'•c. 

h 1 :.!' • C-f'IESEL 

3 

ECO ■•iQTTe- 

£ 

l ■- ***** * ; * S *»■- f -r * 

XF 



f 

f. 


.Ir Z'.KB-v v . ' ,1 IMKEY* •: , 

”S” 7 


tf (? 

se 

15 IN>\ rY'15'9G5UB - 


ns s 

120 

P'Pisr 

15i5 

Diti P, Ì0«J 

156 

LcT p-ei 

160 

rOR I-2 TO 3 

165 

rOR u>=3 tc 7 

170 

LET fitliie+JI =■! 

2.75 

NEXT -J 

ISO 

NEXT I 

135 

FOR T=ae TD 53 STEP IO 

ISO 

LBT 3 ! S + Ì5 -1 

196 

L ET R(I+S>=1 


Listato 1. Gioco della dama cinese, le frasi in campo inverso sono: 
Linea 10 “Dama cinese”, 

Linea 20 “Vuoi le istruzioni S/N?”, 

Linea 750 “Peccato - vuoi riprovare?”, 

Linea 860 " Giochi ancora”. 
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Dama cinese 
per Sinclair ZX81 


Seguito listato dama cinese. 

£ 0 © lst fi ; z+e> 

£05; LET fi ,•14'.? = i 

£0.5? NEXT X 

22® LET £-i i 4 .5=3 

31® POR lai TC 19 

PWIMT 9T B 1+5: •'*" ; fiT 20 , X 

'3; ■ i,r ' 

32S PRINT BT X,. S;"I";TPB 25; "S ’’ 
33© NEXT X 

335 PRINT «T 0, 5 TfiB S5; '> 

RT 23,-S; ■ 25;"®“ 

34-iT. POR 1=1 TO 9 

35© PRXNT BT I*2,4;CHR¥ CX+37) ; 

+T a 2. , X*2+5; I 
36E FOR 3=1 TO 5 

373- PRIMI' BT X*2 , 3*2 +9; “O” ; BT 3 
•SS+4,1*2 + 5; ”0“ 

383 NEXT <J 
390 NEXT I 

4SB PRXNT BT 10,15;"-" 

4.5© SLOU 

53® PRXNT BT 17,25; “MUOVI” 

50© INPUT fi* 

SIS PRXNT BT 17,25; •’ ”TfiB 

26;“ "; TRE 26;“ 

615 IF CODE R$=S1 THEN GOTO 86® 
620 LET X = '.CODE P*>-38 
530 LET Y =CODE fi* (2 TO ) -28 
SOS IF X<0 OR X >8 OR Y<1 OR Y >9 
THEN GOTO 800 

54 « IF R<X*i0+Y3 <>i THEN GOTO 6 
30 

545 LET U=G'ODE: fi* (4 TD .1-38 
600 LET Z=CODE P$f5 TO 1-28 
S55 IF W<0 OR. !.-.!> 3 OR Z<1 OR Z > © 
THEN GOTO 800 

65® IF RÌUiie+j; ;,2 THEN GOTO © 
30 

S6S. IF fiB5 (X-Ul O® RND BBS (X- 
■)) OS THEN GOTO SO© 

S62 IF RBS !Y-Z!<>3 RND BBS (Y- 
7)<>2 THEN GOTO 600 
&6E- LET fi CU.+ 10+ZJ =1 
570 LET fiCX*16+Y )=2 
573 LET R ( (X fUJ *5+ (Z+Y3 ,-2 > =2 
580 PRINT BT {X+1>*2.5+Y*2;"-’’ 
690 PRINT BT « ( X +U ) 72 +1J *2,5+Z •> 

70® PRINT BT (U+l?*2,5+Z*2;"G” 
73® LE' P=P-1 
720 IF P = J. THEN GOTO 850 
73© FO'r! 1=3 TO 85 
735 IF fi CXJ < >1 THEN NEXT I 
74© IF 2(1+13=1 OR fiC1+91=1 OR 
3 <1 + 5.01 =1 OR fi <1+113=1 THEN GOTO 

743 NEXT I 

EA,4; - Taaw II I III Ili Hi ' 

' 755 IF INKeY$ = '-” THEN GOTO 755 
760 IF INKEY®THEN GOTO 100 
770 STOP 

8©C PRXNT BT 17,26; “MQ33R“;TfiB 
56; 'ERftRTR”; TfiB 26; “RIPETI" 

•SIC SCI O SOS 

CEPSXNT BT 1S , 26.. “BEN“ ; TBB 25 

’ *'--• £ 1 PR INT BT £1 -6; ‘ 

iRigj aaag ' 

©7‘f ir INKEY* THEN GOTO 870 

880 IF' INKEY * = •'&" THEN GOTO 10© 
320 STOP 

1000 PRINT BT i,.0; "DEVI KRNGIfiRE 
LE PEO.UIF TM ODO CHE MS RIMP,M r 
■a. UNB S-Qi.p SUL'-fi SCfiCCBIERR. " 

: v: ® PWN" *p» -C I M’JOUERE in ogh: 

0 .T fi. E Z IONE = t.fi MOSSA Ufi EFFETTI '' 
'7 CNSEBEK OC -7 CCCP1MWRTE D.c 
_.P ~>E£> IN.-! CHE 81 VUOL MUOVERE 

- SPfiZIO - CFSELLA DI ORRIDO.“ 
-<r. CN'’ ' ' c.R INTERROMPERE IL 
-.’.YC'C- IN£*E - RICCI SX> »L POSTO I 
ELLB MOSSA." 


*7 ."-*f Pp.TN T 
TV 

, . ’ PREMI UN 

TASTO 

P£Y 

. C 0 ' ’• K ^ . - ; ZN 

pfc/ru^ ••• 

GO r O 

1 C-' . 

..'ì ' 

t :• Ò R ! . • 

' iJ* H < i A. • -i £, oììa 





SOFTWARE HOUSE - Casella Postale 4 
13055 - Occhieppo Inferiore (VC) 


Tel. 015/592730 


SONO DISPONIBILI 

PER COMMODORE 64 


DATA BA.SE SORG. 

Programma sorgente per la creazione di archivi; usa file relativi 
con catalogo su sequenziale-lunghezza e numero record defini¬ 
bili in BASIC non protetto con istruzioni. 

Lire 50.000 solo su dischetto. 

ALTO MEDIOEVO 

Una perfetta simulazione dell'economia medioevale. Rispetta le 
gerarchie feudali di vassallaggio e vi renderà esperti nell'arte di 
governare destreggiandovi tra guerre - carestie - epidemie - 
maltempo e innondazioni. Da 1 a 9 feudatari il migliore dei quali 
diventerà Re. Corredato di Istruzioni. 

Lire 30.000 dischetto L. 25.000 cassetta. 


ATOMO 

Gestione simulata di impianto nucleare per la produzione di 
energia elettrica. Il pieno rispetto dei parametri reali rende il 
programma oltre che un gioco un modo per capire il funziona¬ 
mento di un reattore nucleare. È la vostra condotta a determi¬ 
nare - rendimento - guasti ecc. 

Non aspettatevi giudizi molto lusinghieri (almeno all'inizio). 

Lire 30.000 dischetto L. 25.000 cassetta 


BLACK JACK 

Gioco di carte classico con le regole del B.J. americano - il banco 
non è fisso al calcolatore ma ruota secondo le regole. 

Lire 30.000 dischetto L. 25.000 cassetta 

TORRE DI HANOI + OTHELLO 

I - classici - finalmente anche per il Commodore 64. 

Lire 30.000 dischetto L. 25.000 cassetta. 

HIDDEN - CODE + BIORITMI 

Gioco di abilità matematica (numero nascosto) + bioritmi con 
determinazione del giorno, della settimana e grafico video. 
Lire 30.000 dischetto L. 25.000 cassetta 

DISPONIBILI GRUPPI DI CONTINUITÀ’ ESPRESSAMENTE 
STUDIATI PER CBM 64. ALTRI MODELLI A RICHIESTA. MONI¬ 
TOR SCHEDE 128 IN/OUT REGISTRATORI COMPATIBILI 
COMMODORE. 

RICCO PACKAGE DI PROGRAMMI GESTIONALI 

(fatturazione condominio, magazzeno, ecc,..). 

A disposizione per consulenze su 

Software Applicativo - Automazione di Processi 
Soluzione dei Vs. problemi su Commodore 64 
Corsi di BASIC 
Tel. 015/592730 

In vendita anche presso 

TEOREMA - Via Losanna, 9 - Biella 


Spedire in busta chiusa a: 

BA.SE s.n.c. - Casella Postale 4 - 13055 Occhieppo Inf. (VC) 


Nome e Cognome 




Città 















Per un totale di Lire 


Pagamento □ Allegato assegno non trasf. sped. celere 
□ Contro assegno + spese postali 



























nuovidea 



2+2=APPLE 


, i.-# 

T W 

^:=r."~ Jr*.«- A 1 


Due Riviste famose, specializzate, 
informatissime 

BIT - PERSONAL SOFTWARE 

Due volumi preziosi per chi vuole 
approfondire la conoscenza del suo 
computer 


INTERFACCIAMENTO 

DELL’APPLE 

196 pagine 
Cod. 334B 
Lire 14.000 


APPLE II Guida 
all’uso 
390 pagine 
Cod. 331P 
Lire 26.000 


Una sola firma prestigiosa per chi si interessa 
di informatica e di elettronica 


Attenzione compilare per intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini. 12 - 20124 Milano 


_ COUPON D’INFORMAZIONE _ 

Desidero ricevere un numero omaggio di □ BIT - □ PERSONAL SOFTWARE 
Insieme a maggiori Informazioni sulle condizioni di abbonamento 


INVIATEMI CONTRASSEGNO 


. n° copie 

codice 

Prezzo unitario 

Prezzo totale 

1 

I 

334B 

L. 14.000 


1 

331P 

L. 26.000 



contributo fisso spese di spedizione 
Totale 


Nome 

Cognome 

Via 

Cap Città 

Data Firma 


Spazio riservato alle Aziende. SI richiede l’emissione di Iattura 


Partita I.V.A. 




















Arriva una nave 
carica di ...— 


programmi da 1 Kbyte per ZX81 


Una dozzina più una, di 
idee interessanti per 
ZX81 senza espansione. 
Provate Simon, 

Oratore, Alto e Basso e 
... buon divertimento! 


di Bruno Del Medico 

Q uasi tutti i programmi pre¬ 
sentati girano meglio in 
SLOW. Poiché all’accen¬ 
sione lo ZX81 si trova nella condi¬ 
zione FAST, sarà opportuno met¬ 
terlo in SLOW premendo SHIFT e 
D e poi NEWLINE. Comunque tale 
istruzione è già presente in molti 
programmi. 

Tutti i programmi hanno una li¬ 
nea 1 REM contenente il nome del 
programma, per ovvie ragioni di 
chiarezza. 

In alcuni tale linea può causare 
problemi di ingombro di memoria 
nel corso dell’esecuzione. Questo si 
manifesta con messaggi di errore del 
tipo 4, e può essere evitato cancel¬ 
landola. 


Disegni 

(Listato 1). Lo schermo dello 
ZX8I è diviso in 22 linee orizzontali 
e 32 colonne verticali. Questo signi¬ 
fica che sullo schermo è disponibile 
un reticolo (non visibile) di 22*32 = 
704 posizioni. 

Per indicare la posizione in cui si 
desidera scrivere si usa l’istruzione 
PRINT AT seguita da due numeri: 

PRINT AT 11,16 

indica che vogliamo scrivere qualco¬ 


sa nel punto di intersezione tra la 
linea 11 e la colonna 16. 

Nel programma DISEGNI ven¬ 
gono usate delle variabili: L e C. Le 
linee 100 e 110 stabiliscono che L è 
uguale a 11 e C è uguale a 16. La 
linea 140 scrive nella posizione L, C 
la stringa C$. 

Siccome L e C possono assumere 
qualsiasi valore numerico, la linea 
140 diventa un’istruzione valida per 
scrivere il carattere della stringa C$ 
in qualsiasi punto dello schermo. 

Il programma si ferma per effetto 
della linea 150. 6E4 è un numero 
scritto in forma esponenziale e si 
legge: 6 seguito da 4 zeri (cioè 
60.000). 

Teoricamente il programma do¬ 
vrebbe fermarsi per: 

60.000/50 = 1200 secondi 

ma basta premere qualsiasi tasto per 
terminare la pausa. 

Premendo i tasti direzionali (5, 6, 
7 e 8) vengono variati i valori di L e 
C per effetto delle linee 160 e 170. 

La linea 200 rimanda alla 140 e 
produce ancora la stampa del carat¬ 
tere C$, ma in posizione diversa. 

Continuando si possono creare 
dei disegni sullo schermo. Per cam¬ 
biare il carattere usato occorre pre¬ 
mere 0 e poi il nuovo carattere da 
stampare. 

Un piccolo accorgimento: se que¬ 
sto nuovo carattere è Io spazio, ri¬ 
usciamo a cancellare dei pezzi di di¬ 
segno, perché lo spazio non si vede 
sullo schermo. 

La figura 1 illustra lo schema a 
blocchi di questo programma. 


Rimbalzi 

(Listato 2). Il programma “tiene 
in gioco” una pallina sullo schermo. 


Quando la pallina arriva sui bordi 
rimbalza all’indietro come se avesse 
urtato un muro. 


Raccattapalle 

(Listato 3). In questo gioco ci so¬ 
no quindici palline che scendono 
dall’alto, in linea retta, lungo una 
colonna dello schermo scelta a caso. 

Il giocatore deve spostare il canestro 
in modo che le palline vi cadano 
dentro. Il movimento si ottiene con i 
tasti 0 e 1. 

Le quindici palline vengono fatte 
cadere per mezzo del ciclo FOR K 
della linea 120, che va da 1 a 15. La 
pallina comincia a scendere dalla li¬ 
nea di schermo 0 e la caduta termina 
nella linea di schermo 10. Il canestro 
si muove lungo la linea 11. Ad ogni 
esecuzione del ciclo FOR W (linea 
160) la pallina viene disegnata nella 
posizione W, B (linea 170). 

B mantiene inalterato il proprio 
valore fino alla fine del ciclo FOR 
W. 

Prima, alla linea 150, il computer 
assegna a B un valore casuale com¬ 
preso tra 0 e 15. 

Per raccogliere la pallina il gioca¬ 
tore deve posizionare il canestro sul¬ 
la colonna B. 

Il cesto viene disegnato nella posi¬ 
zione 11,F. All’inizio F è uguale a 
zero perché F = M e M = 0, e il 
canestro si trova sulla prima colon¬ 
na a sinistra. 

Premendo 0 o 1 il giocatore varia 
il valore di F e la linea 200 disegna il 
canestro in posizione diversa. Oc¬ 
corre notare che la linea 200 stampa 
anche due spazi che cancellano il 
canestro dalla posizione precedente. 

La linea 225 incrementa la varia¬ 
bile D (punteggio) ogni volta che 
una pallina cade nel cesto. Il compu¬ 
ter si accorge che la pallina è caduta 
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nel canestro quando le coordinate 
M o M + 1 (colonna su cui viene 
stampato il canestro) sono ugua- 
li a B. 


Sinusoide, Spirale, Nautilo, Ellisse 

(Listati 4 -r 7). Questi quattro 
programmai consentono di realiz¬ 
zare sullo schermo figure geometri¬ 
che. Cambiando alcuni valori è pos¬ 
sibile variare la dimensione dei dise¬ 
gni. In particolare per Sinusoide ed 
Ellisse occorre cambiare i valori del¬ 
la linea 120, in Spirale quelli della 
linea 160, in Nautilo quelli della li¬ 
nea 130. I parametri sono già al loro 
valore massimo quindi possono es¬ 
sere solo diminuiti. In Ellisse si può 
ottenere un cerchio bilanciando i va¬ 
lori. 

Questi programmi sono di esecu¬ 
zione lenta. 


Schedina Enalotto 

(Listato 8). Questo programma 
prepara una schedina a caso. 

Lo scopo dei due cicli nidificati 
FOR K e FOR W è di eseguire più 
volte la linea 230, in modo che ven¬ 
gano scritti 48 simboli 1, 2 o X di¬ 
sposti a formare le 4 colonne e le 12 
righe di una schedina Enalotto. 

Il ciclo FOR W va da 1 a 4. 

Se gli elementi di D$ fossero com¬ 
posti da un solo carattere, verrebbe¬ 
ro scritti attaccati uno all’altro a di¬ 
scapito della chiarezza. Ecco perchè 
gli elementi di D$ contengono due 
caratteri, di cui il secondo è uno spa¬ 
zio. 

I l programma può essere adattato 
per generare una schedina Totocal¬ 
cio, che però non sarà influenzata da 
nessun pronostico. 

L’unico accorgimento di rilievo 
sarà quello di limitare la quantità di 
simboli 2. A ciò provvede la linea 
225. Ecco le modifiche da inserire: 

200 FOR K = 1 TO 13 

225 IF M = 2 AND RND > 30 



Figura 1. Schema a blocchi del programma Disegni. 
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Figura 2. Schema a blocchi del programma Simon. 


THEN GOTO 220 

246 IF INT (K/4) = K/4 THEN 

PRINT 


Simon 

(Listato 9). Il programma è ispira¬ 
to al celebre gioco, nel quale bisogna 
ricordare una sequenza di suoni e 
colori. 

Più modestamente qui dovrà esse¬ 
re ricordata una sequenza di caratte¬ 
ri alfabetici. 

La sequenza di caratteri da ricor¬ 
dare viene sistemata nella stringa 
D$ che inizialmente è vuota (linea 
100 ). 

Il ciclo FOR K viene ripetuto 15 
volte ed ogni volta il computer sce¬ 
glie a caso una lettera tra le 26 dispo¬ 
nibili (linea 130) e la raggiunge a D$ 
(linea 140). 

Chiede poi al giocatore di battere 
la sequenza completa. L’input forni¬ 
to dal giocatore viene sistemato nel¬ 
la stringa M$ (linea 160) e la linea 
170 confronta M$ con D$. 

Se le due stringhe sono diverse, il 
computer passa alla linea 600 e se¬ 
gnala l’errore ponendo termine al 
programma. Nel caso opposto passa 
al NEXT K e viene generato il carat¬ 
tere successivo. 

Se il giocatore ricorda 15 caratteri 
il computer stampa il messaggio di 
vittoria (linea 210). 

In questo programma occorre no¬ 
tare l’uso delle virgole come spazia¬ 
tori. Infatti mentre il punto e virgola 
non fa andare a capo e la scritta 
successiva viene posta attaccata alla 
precedente, con la virgola ottenia¬ 
mo uno spostamento verso destra di 
un campo, cioè mezzo schermo. 
Provate a togliere qualche virgola 
per vedere l’effetto. 

Lo schema a blocchi di questo 
programma è illustrato nella Figu¬ 
ra 2. 


Alto e basso 


(Listato 10). Piccolo gioco d’az- 
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zardo nel quale il giocatore ha la 
possibilità di sperperare i cento dol¬ 
lari di cui dispone all’inizio. 

Il computer visualizza un numero 
scelto a caso e compreso tra I e 100 
(linea 110). Più avanti genera un se¬ 
condo numero a caso, ugualmente 
compreso tra uno e cento ma non lo 
scrive (linea 200). 

Il giocatore deve puntare una cer¬ 
ta somma, e cercare di indovinare se 
il secondo numero è più alto o più 
basso del primo. 

Se indovina vince la somma pun¬ 
tata, altrimenti la perde. 

Il programma non considera la 
possibilità che il secondo numero sia 
uguale al primo: in questo caso il 
giocatore perde comunque. 

La somma posseduta dal giocato¬ 
re viene conservata nella variabile 
D. Quando il computer chiede l’en¬ 
tità della puntata (linea 130) sistema 
il valore ottenuto nella variabile B. 

Verifica poi se B è maggiore di D: 
in questo caso rifiuta l’input (linea 
150) perché evidentemente il gioca¬ 
tore non può puntare una somma 
più alta di quella posseduta (ma 
qualcuno potrebbe provarci). Per lo 
stesso motivo rifiuta l’input se il gio¬ 
catore tenta di giocare 0 dollari: PI- 
,/PI = 0. 

Al termine di ogni puntata la linea 
250 controlla se il giocatore è rima¬ 
sto con 0 dollari: PI/PI = 0. In que¬ 
sto caso viene eseguita la linea 800. 

Centro 

(Listato 11). Il computer stampa 
le prime quattro lettere dell’alfabeto 
e chiede al giocatore, di sceglierne 
una. Anche lui a sua volta ne sceglie 
una. 

Se la lettera scelta è la stessa il 
punteggio viene incrementato di 5 
altrimenti viene decrementato di 1. 

Per poter effettuare il tentativo 
successivo occorre premere un tasto 
per sbloccare la pausa della linea 
630. 

Le lettere sono stampate nelle co¬ 
lonne 6, 12, 18, 24; il computer con 


la linea 170 scrive un carattere parti¬ 
colare sotto le lettere scelte, cioè in 
posizione N ★ 6. 

Il giocatore sceglie la sua lettera 
premendo A, B, C oppure D. 

Premendo questo tasto fornisce al 
computer una stringa di nome B$ 
contenente il carattere premuto (li¬ 
nea 160). 

Quindi il codice del carattere con¬ 
tenuto in B$ può essere uguale a 38, 
39, 40 o 41 perché questi sono i codi¬ 
ci delle prime quattro lettere. Sottra¬ 
endo al codice il numero costante 37 
si ottiene 1, 2, 3 oppure 4. 

La linea 180 stampa il carattere 
grafico corrispondente al giocatore 
nella posizione: (CODE B$ — 37)-k6. 

Se il giocatore ha premuto A allo¬ 
ra CODE B$ — 37 = 1; se anche la 
lettera scelta dal computer (quindi 
N) è uguale a 1 allora si verifica la 
condizione descritta nella linea 160: 

CODE B$ — 37 = N 
ed il giocatore ha vinto. 


Oratore 

(Listato 12). Il programma si divi¬ 
de in due blocchi. 11 primo blocco 
(100-150) viene eseguito una sola 
volta, quando vogliamo introdurre 
in memoria delle parole, e successi¬ 
vamente solo quando vogliamo 
cambiare le parole introdotte. 

Mentre a questo primo blocco 
serve solo a immagazzinare dati, il 
secondo blocco è il programma vero 
e proprio che utilizza i dati introdot¬ 
ti. 

Quindi, una volta caricati i dati 
dopo il RUN e memorizzato il pro¬ 
gramma, l’istruzione per usare il 
programma ogni volta che viene ri¬ 
caricato è GOTO 160. 

L’istruzione RUN farebbe riparti¬ 
re il programma dalla linea 1 cancel¬ 
lando i dati introdotti e chiedendone 
di nuovi. 

Nella prima parte il giocatore in¬ 
troduce alcuni spezzoni di frasi, che 


il computer successivamente combi¬ 
na a formare delle frasi più ampie. 
Le possibilità sono limitate dalla esi¬ 
gua memoria disponibile ma una 
volta afferrato il concetto il pro¬ 
gramma può essere facilmente este¬ 
so. 

Le frasi introdotte sono imma¬ 
gazzinate nel vettore stringa B$, 
composto da 15 elementi ciascuno 
avente 20 caratteri. 

Il ciclo FOR K (linea 160) viene 
eseguito tre volte ed ogni volta il 
computer sceglie una frase tra le pri¬ 
me cinque, le seconde cinque, le ter¬ 
ze cinque. 

Le linee 180 e 190 tolgono gli spa¬ 
zi in fondo all’elemento di B$ scelto. 
Infatti se una frase ha meno di 20 
caratteri il computer la porta a 20 
aggiungendo spazi. Se gli spazi non 
venissero tolti si avrebbe un effetto 
sgradevole in fase di stampa. 

Ecco ora quindici frasi che posso¬ 
no essere utilizzate nel programma e 
vanno battute una alla volta subito 
dopo aver dato il RUN: 

1) la supremazia, 

2) la gestualità etica, 

3) il nesso astrale, 

4) il segmento ibrido, 

5) il maxi-contributo, 

6) dei diritti abnormi, 

7) per la fruizione, 

8) dei decreti legge, 

9) della politica base, 

10) mancante di finalità, 

11) causa disaffezione, 

12) aliena la logica, 

13) non è didascalico, 

14) trifola lardeggiando, 

15) precede l’antefatto. 

Riordino numeri 

(Listato 13). Ecco un programma 
di utilità, che sistema in ordine cre¬ 
scente una qualsiasi quantità di nu¬ 
meri (però con 1 K di memoria i 
numeri non possono essere molti). 
La linea 100 chiede quanti sono i 
numeri da riordinare. E sempre me¬ 
glio fare una valutazione generosa, 
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indicandone qualcuno in più. 

Il ciclo FOR Z (linee 125-160) ac¬ 
cetta in input i numeri che vengono 
forniti. Terminato l’inserimento il 
giocatore batte A ed il computer ab¬ 
bandona il ciclo FOR Z (linea 133). 


I numeri inseriti vengono sistema¬ 
ti nel vettore B che quindi contiene 
tutta la sequenza dei numeri in di¬ 
sordine. Al termine dell’esecuzione 
del ciclo FOR K (linee 200-310) il 
vettore B contiene i numeri sistemati 


in ordine crescente, ed il secondo 
ciclo FOR K (linee 400-420) lo stam¬ 
pa sullo schermo. 

Attenzione a non fornire in input 
caratteri diversi da “A”. 


1 REM DISEGNI 

1©G* L£T _ ~ XI 
iì® L£T C»16 

s.aa ppin? "inserisci un crrrttc 

CT • ' 

130 INPUT 0 4 

140 PR INT R~ i_ ... C ; C * 

15© pause e .lo¬ 
ie© XP TNK'V"5" THEN GOTO 13® 
ITO LE' L*L + i XHr-.L V * = •' 6 " 3 - ( XNKEY 

— ** ' ì 

l©e LE. ' 0*C4- t XNKEY J - i INKEY 

f 

£0© GOTO 140 


Listato 1. Listato del programma Disegni. 


1 

REM 

RIMBSu 

II 



10© 

SLOU 





3-1© 

LET 

D = 3.tT 

tRNE>*4£>) +1 


Ì23 

LET 





.7.3© 

LET 





17© 

L. ET 

l.=L 




III 

F ìT ! D 

K ■= 1 • 3 

D , H 

A <3 -3 



lei 

fT?* c 

ISO 




ISSI 

:-OR 

W - 1 * w > 

30 



167 

NEXT 

U 




13© 

;i >3©:= 

LET 

c=c. *- 1 £ 

PNC* 

M -i I J - ( £ 

AMD 

19© 

0 >54 ■ 

LET 

L =L + (£ 

AND 

D <13 - (2 

AND 

200 

LEI 

D ~L- f-L. 




210 

L £7 

M=M+C 




22© 

NEXT 

K 




230 

PROSE SE4 




£40 

CLS 





25© 

Ri IN 






Listato 2. Listato del programma Rimbalzi. 


1 REM RRLC3TTT!PBL.t_E 


10© 
11© 
13 5 
1S0 
13© 
14© 
150 
150 
170 
ISO 

130 

■H* 

213 ’ 
220 
225 
23© 
2 40 
-Le» 
250 
268 
£70 
260 


T O 15 


LET D-3 
LET H-0 
SLOU 
FOF; K«1 
CLS 

PR1NT FT 3,20; K 
LET BsP-rr (RND+1S3 
POR Ua© TO 10 

ppint m 

LET P=N+(INKEY*«"0“)-£INKEY 

3 

XP P<0 OR F > 15 THEN LET F=H 
PRINT AT li; M; " ";flT 11, F; 
AT u , B ; •’ " 

LET M=F 
NEXT U 
LET D=D+ 

NEXT K 
PRINT RT 


B =H3 £M + 1=B> 

0,20.; '• PUNT X “ ; D ; ” s 


PROSE le© 

IP INKEY $<>•'“ 
PftUSE SENI 
RUN 


THEN GOTO 


25© 


Listato 3. Listalo del programma Raccattapalle. 


1 REM SINUSOIDE 
90 SLOU 

10® FOR K=1 TO 12© 

110 LET D*K*PI/30 

12® PLQT K/2 .SIN (D) -1620 420 

130 NEXT K 


Listato 4. Listato del programma Sinusoide. 


i REM SPIRALE 
■99 SLOU 

130 POR K,ai 70 2 
11© FOR W = 1 TO 3O0 

ISO LET BalU RND K=13+i40S-U 7 
ó K =23 

130 LET D= (430-BJ /4S0 
140 LET M=PItE/SO 

160 XP K=1 THEN PLOT (20.5*005 
<M) 3 *D+20, (20ÌSIN tH) 3 sD + 15 
ITO IP K =2 THEN UNPLOT (20.5*00 
3 (M) 3 *D + 20, (20«SIN CH3 3 *D*15 

130 NEXT U 
19© PAUSE IO© 

20© NEXT K 


Listato 5. Listato del programma Spirale. 


I 

REM NRUTTLO 



9© 

SLOU 



10© 

POR K =1 TO 403 



11© 

LET D=PHiK/50 



12© 

LET S~ 1400-K3 ./4©0 



13© 

PLOT (2©,5*003 (DJ+30 

J Tt-b • 


J*SIN VD 3 7203 *53 



140 

NEXT K 




Listato 6. Listato del programma Nautilo. 


1 

REM ELLISSE 

&& 

SLOU 

10© 

POR K»1 TO 10© 

11© 

LET B = PI#K/50 

12© 

PRINT fiT 9*COS (B3 +1© , 14 *Sl 

: 4 te> 

HE; "SS" 

13© 

NEXT K 


Listato 7. Listato del programma Ellisse. 


i 
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1 

REM 

SCHEDINO ENALOTTO 

10® 

DIM 

D* <3.,2? 

110 

LET 

D* (1) = " 1" 

12© 

LET 

Dt (£') ="B" 

13© 

LET 

S>* (3> ="X" 

135 

SLOU 

200 

POR 

K=1 TG 12 

210 

FOR 

W=1 TO 4 

220 

LET 

K = INT «RNOitS) +1 


PRINT D£«M); 

240 

NEXT U 

245 

PRINT 

250 

NEXT K 


Listato 8. Listato del programma Schedina Enalotto. 


(RND*2d) *3 


1 REM SIMON 

10© LET 0$="" 

110 POR K®1 TCl 15 
120 CLS 

130 LET S*=CHR$ (I t'o¬ 
si 

14.0 LET OS=D-s+d4 

15© PRINT "BATTI LA 5EDUENZA CO 
IPLETfl'L "ULTIMA LETTERR : " .. .. , 

160 INPUT M* 

170 IF M$t'>D£ THEN GOTO 600 
180 PRINT ,H|j ,"O.K *" 

190 PAUSE 50 
200 NEXT K 

210 PRINT ,,"RIPETUTE 15 LETTER 
,1" /V ‘SEI 'UH"CRHPIONE" 

220 STOP 

600 PRINT j , "ERRORE.LR 5ESUEHIR 
ERR: ” ,£>$ 

610 STOP 


Listato 9. Listato del programma Simon. 


1 

REM ALTO O BRSSO 


100 

LET D oURL "10O” 


110 

LeT N1*INT (RNDtl00) 


180 

PRINT "PRIMO NUMERO: " 

; NI 

130 

PRINT "HAI ".:D.;" 

QUA NT 

J PUNTI 7 


14® 

INPUT B 


160 

IF B >D OR BiPI/PI THEN 

GOTO 

URL 

" 140" 


160 

PRINT B,./"ALTO O BRSSO 7 ( 

A.-'B) ’ 



170 

176 

180 

PAUSE 6E4 

LET M*=INKEY$ 

IF HA <> "R“ RND 

THEN 

GOTO 170 


190 

PRINT ,H$ 


200 

LET N2«INT (RND*100) 


210 

PRINT "SECONDO NUMERO: 

" ; N2 

'220 

IF NI>N2 AND M*="B" OR 

NI <N 

1 AND M*«"A" THEN GOTO URL 

"600" 

230 

PRINT "PERDI B; " DOLLARI' 

240 

LET D=D-B 


250 

IF D < =»PI-PI THEN GOTO 

800 

260 

PAUSE 6E4 


280 

CLS 


290 

GOTO UAL "110" 

; " DO 

600 

PRINT .."HAI UINTO ";B 

LLRRI" 


610 

LET D*D+B 


620 

800 

GOTO UAL "260" 

PRINT ,,"TI HO SPENNATO",," 

RRRIUEDERCI E GRAZIE” 


810 

STOP 



Listato 10. Listato del programma Alto e Basso. 


1 REM DENTRO 
10® LET Da® 

120 LET N = IN7 tRNE>*4.t +1 
130 PRINT TP© 6; "R' . TP.B 1 
'AB 18; "C” ; TR3 24; "D‘* 

140 PRINT t i s t , t "CUALE SCEGLI 7 

15© PAUSE 604 
160 LET B$=XNKEV$ 

170 PRINT AT lj5*N; 

16© PRINT AT 2.«CODE B$-37.1*6; 
1“ 

19© IF CODE B$-37=N THEN GOTO 6- 
30 

200 PRINT , /'HAI PERSO 

210 LET DsD-i 

220 GOTO 620 

500 PRINT UINTO 

610 LET D=D+-5 

620 PRINT ,, ‘PUNTI: ";D 

530 PAUSE 6EÌ 

640 CLS 

650 GOTO 12© 


Listato IL Listato del programma Centro. 


1 

REM ORATORE 


2 

REM USARE GOTO 

160 

10® 

DIM BAl ( 15 ì 20) 


110 

FOR K«1 TO 15 


120 

PRINT K 


130 

INPUT B $(K) 


140 

CL5 


150 

NEXT K 


160 

FOR K=1 TO 11 

STEP 5 

170 

LET H$aBA(K+INT (RND*B>)+" 

180 

LET M#aM*( TO 

LEN M*-l) 

190 

180 

IF M*(LEN M*> a 

" " THEN GOTO 

20® 

PRINT M*;’’ " ; 


210 

NEXT K 


220 

PAUSE 6E4 


225 

CLS 


23® 

GOTO 160 



Listato 12. Listato del programma Oratore. 


1 REM RIORDINO NUMERICO 

100 PRINT "GUANTI NUMERI T* 

110 INPUT D 
180 DIM B(D> 

185 FOR Z-l TO D 

130 PRINT "NUMERO ";Z;" •?** 

138 INPUT BA 

i“ &°*Ti?:^ E K» 50To i6s 

.LFA._ra s 
160 NEXT Z 
165 LET D=Z-1 
800 FOR Kal TO D-l 
810 LET M=K + 1 
880 FOR W«M TO D 
830 LET FaD+M-U 

g4® IF B(F)>B(K) THEN GOTO 300 
850 LET P«B<F> 

860 LET 8 (F)>B(K ) 

870 LET B tK) »P 
300 NEXT U 
310 NEXT K 
350 CLS 

400 FOR K«i TO D 

410 PRINT K; TRB 4;B(K) 

48® NEXT K 


Listato 13. Listato del programma Riordino numerico. 
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Anno nuovo, novità JACKSON 




Dopo 

10 strepitoso Mar 
successo di KM 

«la prima e unica 
Enciclopedia di 
Elettronica e di Informatica», 

11 Gruppo Editoriale Jackson 
annuncia che dal 1° 
febbraio sarà in edicola 

ABC Personal 
Computer: 

il Corso di Basic in 24 fascicoli settimanali 
più facile, più rapido, più completo. 
Realizzato per voi da chi l'informatica 
la conosce davvero! 


ti 


24 fascicoli settimanali 

per ottenere uno splendido 
Corso rilegato composto da. 
2 volumi di Lezioni per complessive 608 pa 
1 volume di Computer-test di 104 pagine 

1 Dizionario di Informatica di 200 pagine 


Abbonamento-risparmio + Libro 

Tagliando da inviare in busta chiusa a: 

Gruppo Editoriale Jackson “ABC Personal Computer” 
via Rosellini, 12 - 20124 Milano 

Sì, desidero sottoscrivere l’abbonamento risparmio ai 24 fascicoli 
di ABC Personal Computer e alle copertine dei 4 volumi dell’opera. 
Tutto al prezzo speciale di L. 80.000 invece di L. 96.000. In più 
avrò diritto a ricevere immediatamente il volume di Adam Osborne: 
Microelettronìca, la Nuova Rivoluzione Industriale. 

Allego alla presente 

□ assegno non trasferibile di L. 80.000 a voi intestato 

□ fotocopia di versamento di L. 80.000 sul ccp n. 11666203 

□ fotocopia di vaglia postale di L. 80.000 a voi intestato 
I fascicoli dovranno essere inviati a: 



il risultato 
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la conferma 


della superiorità 


GRUPPO 

EDITORIALE 

JACKSON 



Nome. Cognome 


Via 

Città 

Prov. 

C.A.P. 

Data 

Firma 






















PROGRAMMI DI MATEMATICA E STATISTICA 

Leggendo questo libro il lettore potrà formarsi quella logica di 
base indispensabile per la risoluzione di problemi di matemati¬ 
ca e statistica. 

Ad ogni programma viene preposta un'esposizione schemati¬ 
ca del metodo numerico e delle tecniche di programmazione 
utilizzate, il diagramma a blocchi relativo all'algoritmo, il li¬ 
stato (anch’esso ottenuto da calcolatore) in cui tra l’altro ven¬ 
gono specificati il tempo e la quantità di memoria impiegati. 
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Ritagliare (o fotocopiare) e Inviare a 

Gruppo Editoriale Jackson Via Rosellini, 12 - 20124 Milano 
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Indirizzo ^ 


INTRODUZIONE AL PASCAL 

Il volume, incentrato su numerosissimi esempi che verificano 
costantemente l'apprendimento del lettore, insegna a conosce¬ 
re, capire ed usare tutte le particolarità e i vantaggi di questo 
linguaggio. Nel corso della trattazione vengono ampiamente 
utilizzate le tecniche di programmazione strutturata, come 
pure tecniche particolari, quali il trattamento dei file, l’utilizza¬ 
zione della recursività e il trattamento grafico. 
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□ Pagherò al postino il prezzo indicato + L 2 000 per contributo fisso spese di spedizione 

□ Allego assegno n°.di L. 


COMPUTER GRAFICA 

Si può dire che la computer grafica si pone nel contesto più 
generale del trattamento deH’informazione, avendo individua¬ 
to neH’immagine un contenuto informativo che è possibile 
elaborare. 

Quest’opera, con il suo rigore informativo e scientifico, si pone 
come fondamentale nel carente panorama italiano; inoltre le 
informazioni e gli spunti contenuti nel testo contribuiranno 
certamente alla divulgazione ed alla formazione di idee nuove 
e feconde. 
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... dalla libreria 

JACKSON 


APPLE II - Guida all'uso 



Se possedete un Apple e volete conoscerlo a fon¬ 
do, se volete comprarlo, o se semplicemente vole¬ 
te imparare la sua programmazione, troverete in 
questo libro, tutte le risposte, comprese alcune 
vere “primizie" che vi occorrono per una perfetta 
operatività del sistema. Conoscerete i vari compo¬ 
nenti del sistema e come usarli al meglio. Verrete 
guidati alla programmazione in BASIC e a usare le 
caratteristiche grafiche e sonore del sistema. Im¬ 
parerete a memorizzare su disco sia programmi 
che archivi dati, come ad inserire un programma 
scritto in assembler in uno scritto in BASIC. 

E poi ancora, tutte le istruzioni e funzioni BASIC e 
ben 12 appendici veramente basilari. 
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Giochi africani 
per Spectrum e ZX81 



Figura 1. La figura illustra la condizione iniziale della scacchiera dei quattro 
giochi come viene visualizzata sullo schermo de! Sinclair, usando il listato- 
base I. Il computer gioca con le sei buche a sinistra, il giocatore con le sei a 
destra. Sono visibili gli spazi per i punteggi (in alto a sinistra) e per te scritte 
rotanti (in basso a destra). 


Con un sistema di due 
programmi base ed 
otto moduli, si possono 
costruire quattro giochi 
diversi in versione per 
uno o due giocatori 

di Bruno Del Medico 


P arleremo di quattro classi¬ 
ci giochi africani: l’Awele, 
il Kakua, l’Oware e il 
Tamtam-Apachi. 

Si giocano tutti su una stessa scac¬ 
chiera composta da 12 buche: 6 per 
un giocatore e 6 per l’altro. All’ini¬ 
zio ogni buca contiene quattro bi¬ 
glie. 

Il gioco si svolge prendendo le bi¬ 
glie da una delle proprie buche e 
“seminandole” nelle buche successi¬ 
ve in senso antiorario. I quattro gio¬ 
chi differiscono solamente per le re¬ 
gole che determinano la cattura del¬ 
le biglie presenti sulla scacchiera. 

La prima parte dell’articolo è de¬ 
dicata alla spiegazione dei quattro 
giochi. Nella seconda parte viene 
spiegato come costruire tali giochi, 
nella versione contro il computer, 
utilizzando il listato-base 1. 

Nella terza parte, vengono illu¬ 
strati i programmi con il listato-base 
2, che permettono di giocare in due 
persone. 


Spiegazione dei giochi 

Questi giochi fanno parte delle 
tradizioni di molti popoli africani. 
Spesso la scacchiera è composta da 
dodici buche scavate nel terreno e le 
biglie sono semplici sassolini o con¬ 


chiglie. 

I quattro giochi descritti in questo 
articolo, ed un quinto, il Wali, dan¬ 
no vita a tornei fra tribù e le famiglie 
sono orgogliose di avere tra i propri 
membri il campione locale di uno di 
questi giochi. 

Fondamentalmente l’Oware, il 
Kakua e il Tamtam-Apachi sono 
delle varianti del più diffuso Awele. 

In tutti i quattro giochi il giocato¬ 
re, al suo turno, raccoglie le biglie 
presenti in una delle sue sei buche e 
le semina, una per volta, nelle buche 
successive procedendo in senso an¬ 
tiorario. 

Quando ha finito di seminare le 
proprie buche passa in quelle del¬ 
l’avversario finché non esaurisce le 
biglie raccolte. 

Se si verificano certe condizioni, 
cattura alcune biglie togliendole 
dalla scacchiera. 


II gioco termina, nella pratica, 
“quando appare ragionevolmente 
impossibile effettuare altre prese”. 

Si tratta di una condizione piutto¬ 
sto vaga; nella versione computeriz¬ 
zata è stata adottata questa regola: il 
gioco termina quando un giocatore 
rimane senza nessuna biglia nelle 
sue sei buche. Vince chi, al termine 
del gioco ha catturato più biglie. 
Quindi, quando ci si trova in van¬ 
taggio, una buona strategia, consi¬ 
ste nel cercare di passare tutte le 
proprie biglie nelle buche avversa¬ 
rie. 

La figura 1 illustra la scacchiera 
come viene visualizzata sullo scher¬ 
mo del Sinclair, quando si usa il 
listato-base I. 

La figura 2 illustra lo svolgimento 
dei quattro giochi con alcuni esempi 
di situazioni possibili. 

Ecco le regole di ogni gioco. 
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E ADESSO CHE ESPORTO 
CAPPELLINI GIALLI, CALZONCINI 
VERDI E MAGLIETTE ROSSE, 

CHI MI AIUTERÀ'A TINGERE DI ROSA 
IL FUTURO DELL'AZIENDA? 



IL PERSONAL COMPUTER IBM 
IL TUO PICCOLO GRANDE AMICO. 


Le statìstiche di mercato possono fare mol¬ 
to per il futuro della tua azienda. A patto 
che siano precise, aggiornate e conformi al¬ 
le tue esigenze. Devi poter leggere tra le ri- 

P he, insomma. E con il video a colori del 
ersonal Computer IBM potrai affrontare i 
tuoi problemi, vedendo sempre chiaro an¬ 
che nei dati più oscuri. Ma non solo. Il Per¬ 
sonal Computer IBM può aiutarti a fare di 


tutto perchè riceve dati, analizza, calcola, 
registra, stampa e, grazie alla sua potente 
memoria e ai minidischi, ti consente di ar¬ 
chiviare un’infinità di informazioni. Ogni 
cosa sarà più semplice con un amico così. 
Vuoi metterlo alla prova? 

Vai da un concessionario IBM. Scegli quel¬ 
lo che ti è più comodo, nell’elenco della pa¬ 
gina che segue. 



IBM Italia 

Distribuzione Prodotti srl 


11 Personal Computer IBM contiene un microprocessore a 16 bit e una memoria di 
utilizzo che raggiunge i 640 Kbyte, e può essere dotato di un video a colori e di un co- 
processore matematico. E, grazie ai aischi fissi, la capacità massima di memoria del 
sistema è di 21 Mbyte in linea. Inoltre, puoi facilmente collegarti con un altro Perso¬ 
nal Computer IBM, con elaboratori più potenti e con la rete dei Servizi di Tele-Infor¬ 
matica della IBM. 

Sistemi operativi: DOS 1 - DOS 2 - UCSD - CP/M-86. Supporti per le comunicazio¬ 
ni: Asincrone - SDLC - BSC - Emulazione: 3101 -3270. Lmguaggi: tutti i principali e 
in più l’APL. Programmi applicativi per: aziende e servizi - produttività individuale - 
ufficio moderno - calcolo tecnico e scientifico - applicazioni professionali - didattica. 
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Awele 


Giochi africani 
per Spectrum 
_e ZX81 


Al termine della semina il gioca¬ 
tore raggiunge una buca che può 
contenere: 

— nessuna biglia, 

— una o due biglie, 

— più di due biglie. 

Nel primo e nel terzo caso non 
cattura alcuna biglia e il gioco passa 
all’avversario. Nel secondo caso cat¬ 
tura le biglie contenute nella buca 
raggiunta, che sono due o tre: infatti 
alla una o alle due presenti si aggiun¬ 
ge l’ultima della semina. Oltre a ciò, 
cattura tutte le biglie delle buche alla 
sua destra e alla sua sinistra, se que¬ 
ste buche ne contengono due o tre. 
La cattura termina quando alla sua 
destra e alla sua sinistra incontra 
buche con quantità di biglie, diverse 
da due o tre, ed il gioco passa all’av¬ 
versario. 

Un esempio è illustrato nella figu¬ 
ra 2a. 


Ovvare 


ALTO 

1 c. 
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Figura 2a. A WELE. Il giocatore in basso muove la buca 5 e semina 3 biglie 
nelle buche 6, 2, 5. Al termine la buca 5 contieneO biglie e la buca 8 ne contiene 
8. Le buche 6 e 7 ne contengono I e 3. 

Il giocatore in alto muove la buca Ile semina 3 biglie nelle buche 12, I e 2. Al 
termine la buca 11 contiene 0 biglie. La buca 2 ne contiene 3, che vengono 
catturate. 

Anche le buche adiacenti, 1 e 3, contengono 2 e 3 biglie che vengono catturate. 
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Figura 2b. OÌVARE. Il giocatore in basso muove la buca 4 e semina 4 biglie 
nelle buche 5, 6, 7 e 8. La buca 8 contiene 0 biglie quindi il gioco passa 
all’ avversario. 

Il giocatore in alto muove la buca 9 e semina due biglie nelle buche IO e li. Ora 
la buca 11 contiene due biglie quindi alto te raccoglie e le semina nelle buche 12 
e I. 

La buca 1 raggiunta contiene 3 biglie (più l’ultima seminata) quindi alto le 
cattura. 
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Figura 2c. KAKUA. Il giocatore in basso muove la buca 2: cattura una biglia e 
ne semina due nelle buche 3 e 4. Ora la buca 4 contiene 5 biglie. Il giocatore le 
raccoglie, ne cattura una e semina le quattro rimanenti nelle buche 5, 6. 7 e 8. 
La buca 8 contiene 0 biglie. Quindi il giocatore cattura la biglia che vi ha 
seminato e passa la mano. Complessivamente ha catturato 3 biglie. 


Al termine della semina la buca 
raggiunta può contenere: 

— nessuna biglia, 

— tre biglie, 

— un numero di biglie diverso da tre. 
Nel primo caso la mano passa al¬ 
l’avversario. 

Nel secondo caso cattura le quat¬ 
tro biglie (tre più l’ultima della semi¬ 
na) e il gioco passa aM’avversario. 

Nel terzo caso raccoglie le biglie 
della buca raggiunta e continua la 
semina finché non raggiunge una 
buca vuota o un buca con tre biglie. 
Un esempio è illustrato nella figura 
2b. 


Kakua 

Al termine della semina la buca 
raggiunta può contenere: 

— nessuna biglia, 

— un numero qualsiasi di biglie. 
Nel primo caso cattura l’ultima 


biglia seminata e passa il gioco al¬ 
l’avversario. Nel secondo caso rac¬ 
coglie le biglie della buca raggiunta, 
ne considera catturata una (quella 
appena seminata) e semina le altre 
nelle buche successive. 

Evidentemente la strategia mi¬ 
gliore consiste nel cadere il più tardi 
possibile in una buca vuota: ogni 


volta che si cade in una buca con 
biglie se ne cattura una. Un esempio 
è illustrato nella figura 2c. 


Tamtam-Apachi 

Al termine della semina la buca 
raggiunta può contenere: 
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— nessuna biglia, 

— un numero qualsiasi di biglie. 

Nel primo caso, e se la buca rag¬ 
giunta è posta sul suo lato, cioè se è 
una delle sue buche, allora il gioca¬ 
tore cattura tutte le biglie poste nella 
buca di fronte. Inoltrecattura anche 
la propria biglia, cioè l’ultima semi¬ 
nata. Passa poi la mano all’avversa¬ 
rio. 

Se la buca raggiunta non contiene 
biglie ma è posta sul lato dell’avver¬ 
sario, passa direttamente la mano 
senza effettuare catture. 

Nel secondo caso raccoglie le bi¬ 
glie della buca raggiunta e continua 
la semina finché non raggiunge una 
buca vuota. Un esempio è illustrato 
nella figura 2d. 



Il computer come avversario 
• 

Per giocare uno dei quattro giochi 
contro il computer occorre caricare 
il listato-base- 1 più alcuni altri mo¬ 
duli, come riportato nella tabella 1. 
Per esempio, per giocare una partita 
di Awele occorre caricare, oltre al 
listato-base 1, il modulo Awele/1 e il 
modulo Awele/2. 

Suggerisco a chi usa lo Spectrum 
di effettuare registrazioni separate 
ed unificarle poi con il MERGE. In 
questo modo il listato-base può es¬ 
sere integrato dai moduli a piacere 
senza doverli cancellare quando si 
decide di cambiare gioco. 

I giochi presentati sono molto fa¬ 
cili da giocare per il computer. Dal 
momento che si muove partendo da 
una delle proprie sei buche, le mosse 
possibili sono solo sei. In pochi 
istanti il computer calcola l’esito 
possibile di ciascuna mossa e sceglie 
quello che permette di catturare il 
numero più grande di biglie. 

II lato debole della sua strategia è 
che sceglie sempre la mossa più con¬ 
veniente a breve scadenza e non ne 
calcola l’effetto sul lungo termine, 
inoltre, quando nessuna presa è pos¬ 
sibile muove a caso. 

Lo sfidante umano deve cercare 
I di sfruttare queste debolezze per 



Figura 2d. TAMTAM APA CHI. Il giocatore in basso muove la buca 5 e semina 
le quattro biglie nelle buche 6, 7, 8, 9. Qui la semina termina ma basso non 
cattura nessuna biglia perché si trova in una buca dell’avversario. 

Il giocatore in alto muove la buca 10 e semina le due biglie nelle buche 11 e 12. 
Siccome la 12 è vuota la semina termina e alto cattura 11 biglie: l’ultima 
seminata più le IO nella buca avversaria di fronte. 


vincere. Il computer gioca partico¬ 
larmente bene gli ultimi tre giochi, 
in cui a volte è necessario compiere 
diversi giri della scacchiera prima di 
realizzare una presa o incontrare 
una buca vuota, ed è quindi difficile 
per un giocatore umano calcolare 
l’esito di certe mosse. 

In ogni caso una vittoria contro il 
computer è sicuramente meritata. 

Le principali routine del listato- 
base 1 sono illustrate nel riquadro 1. 
Qui di seguito analizziamo nel det¬ 
taglio il funzionamento di alcune di 
esse. La parte seguente è dedicata a 
quanti vogliono approfondire le 
tecniche di programmazione usate. 

Gli altri possono passare diretta- 
mente al caricamento dei listati. 


Messaggi rotanti sullo schermo 

Il programma prevede la possibi¬ 
lità di far ruotare sullo schermo dei 
messaggi. Ciò non è affatto indi¬ 
spensabile allo svolgimento della 
partita: si tratta semplicemente di 
un “gadget” inserito per rendere più 
piacevole e vario il programma. 

Chi non desidera avere scritte 
scorrevoli può eliminare la linea 
1005 e tutte le linee dalla 2700 alla 
3138. 

La tecnica usata per ottenere le 
scritte rotanti, può comunque essere 
usata in molte altre occasioni, per 
esempio nell’allestimento della ve¬ 
trina di un negozio. 

Alla linea 1005 il computer genera 
un numero casuale con l’istruzione 
RND. Se il numero casuale generato 


è maggiore di .5 (ricordiamo che i 
numeri casuali variano da 0 a 
.9999999) l’espressione tra parentesi 
vale 300, altrimenti vale 0. 

Nel primo caso viene costruita 
una stringa Y$ composta dal nome 
del programma (E$) più alcune indi¬ 
cazioni sulla partita in corso (sub¬ 
routine 2700). 

CP è il Contatore delle Partite 
giocate, P (1) e P (2) contengono il 
numero di biglie catturate da G$ ( 1 ) 
e da G$ (2). 

Siccome CP, P (1) e P (2) sono 
variabili numeriche, per inglobarle 
nella stringa Y$ viene usata la fun¬ 
zione STR$. Se CP = 4, allora STR$ 
CP = “4”. Occorre ricordare che ad 
una stringa possono essere sommate 
solo altre stringhe. 

Nel secondo caso (subroutine 
3000) il computer seleziona una del¬ 
le 20 stringhe Y$ immagazzinate 
nelle linee della 3100 alla 3138. In 
pratica, queste venti linee sono 20 
subroutine perché ciascuna di esse 
contiene l’istruzione RETURN. Il 
computer esegue solo una di queste 
venti subroutine, ed al termine Y$ è 
uguale alla stringa contenuta nella 
subroutine eseguita. 

Per decidere quale subroutine ese¬ 
guire, il computer genera un numero 
casuale compreso fra uno e 20 e lo 
sistema nella variabile numerica Y. 

Con la linea 3010, va ad eseguire 
la subroutine 3098 + Y ★ 2. 

Se Y è uguale a 1 esegue la subrou¬ 
tine 3100, se invece Y è uguale a 20 
esegue la subroutine 3098 + 40 = 
3138. 

Le subroutine sono state numera¬ 
te a passo due per fare in modo che 
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tra una e l’altra rimanga disponibile 
una linea. Qui gli utenti di ZX81 
inseriranno il RETURN, dato che il 
loro sistema non consente istruzioni 
multiple sulla stessa linea. 

Una volta selezionata la stringa 
Y$, la subroutine 7000 la fa ruotare 
sullo schermo. 

Alla linea 1006, se G = 2 allora è il 
turno del computer e viene eseguita 
la parte di programma compresa tra 
la linea 6000 e la 6710, e non viene 
fatta ruotare nessuna scritta perché 
il computerè impegnato a pensare la 
sua mossa. 

Se G è diverso da 2 allora deve 
muovere il giocatore ed il computer 
si ferma in attesa che venga premuto 
un tasto e contemporaneamente fa 
ruotare la scritta, grazie all’uso della 
funzione INKEY$ invece di INPUT. 
Infatti INPUT genera una attesa in¬ 
operosa, INKEYS no. 

Con INKEYS il computer con¬ 
trolla se il giocatore preme un tasto. 

Se ciò non è, salta alla subroutine 
7000 (linea 1007), e fa ruotare la 
stringa un passo alla volta. 

Però numerose linee nella subrou¬ 
tine 7000 tengono d’occhio la tastie¬ 
ra per accorgersi appena un tasto 
viene premuto. Quando ciò accade, 
con il RETURN il computer torna al 
programma principale ed esegue la 
linea 1010. 

Nella subroutine 7000 avviene che 
il computer: 

a) aggiunge in fondo a Y$ il primo 
carattere di Y$. Per esempio, se Y$ 
= “CASA”, una volta eseguita la 
linea 7010 diventa “CASAC”. 

b) Toglie a Y$ il primo carattere. 
“CASAC” diventa “ASAC” (linea 
7030). 

c) Scrive nella parte di schermo desi¬ 
derata i primi 15 caratteri della 
stringa Y$ (linea 7050). (Tutte le 
stringhe Y$ usate nel programma 
hanno più di 15 caratteri). 

d) Torna al punto a. 

Spostando sempre il primo carat¬ 
tere in fondo alla stringa si ottiene 
l’effetto di rotazione del messaggio. 

Tutte queste istruzioni vengono 
eseguite molto rapidamente e tra 


l’una e l’altra il computer verifica se 
un tasto è stato premuto, con le linee 
7000, 7020 e 7040. 

Tuttavia la linea 7050, quella che 
scrive il messaggio sullo schermo, 
richiede un certo tempo più delle 
altre per essere eseguita. 

Quando il giocatore preme il tasto 
deve farlo con una certa decisione. 
Uno sfioramento rapido, che nor¬ 
malmente sarebbe sufficiente, non 
viene avvertito dal computer impe¬ 
gnato ad eseguire la linea 7050. Que¬ 
sto è il motivo per cui nel listato- 
base 2 la parte di stringa Y$ che deve 
essere stampata (29 caratteri) viene 
divisa in due parti (linee 7050 e 
7054). Si stampano i primi 15 carat¬ 
teri, si controlla se un tasto è stato 
premuto, si stampano poi gli altri 14 
caratteri. Se provate a modificare il 
listato per stampare tutti assieme i 
29 caratteri noterete che il più delle 
volte il computer non si accorge del 
tasto premuto dal giocatore. 


La verifica dell’input 

Nel programma ci sono due occa¬ 
sioni in cui il computer accetta dati 
in input. All’inizio accetta il nome 
del giocatore, e ad ogni turno accet¬ 
ta la sua mossa. 

In tutti i due i casi l’input fornito 
dal giocatore viene sottoposto a par¬ 
ticolari manipolazioni e verifiche. 

La routine 160-182 chiede al gio¬ 
catore il suo nome. Può accadere 
che per distrazione il giocatore pre¬ 
ma direttamente ENTER. (NEWLI- 
NE per lo ZX81). In questo caso il 
computer non potrebbe stampare il 
nome del giocatore sotto le sue bu¬ 
che, né potrebbe indicare in modo 
chiaro i dati a lui riferiti (vedi la 
figura 1). La linea 180 rifiuta l’input 
se il primo carattere di G$ ( 1 ) è uno 
spazio. 

Se si preme soltanto ENTER, sen¬ 
za fornire alcun carattere, si inseri¬ 
sce una stringa vuota, cioè “ però 
la linea 135, dimensionando il vetto¬ 


re G$, gli assegna due elementi com¬ 
posti da 10 caratteri quindi G$ (1) 
sarà composto in ogni caso da 10 
caratteri; se con l’input tentiamo di 
assegnargli il valore di stringa nulla 
ci saranno 10 spazi. 

Se forniamo il nome MARIO, la 
stringa G$ (1) sarà composta da 
MARIO seguito da cinque spazi. 
Ciò può essere notato durante l’ese¬ 
cuzione del programma con lo Spec¬ 
trum, dove G$ ( 1) e G$ (2) vengono 
stampate con l’istruzione BRIGHT 
e gli spazi aggiunti risaltano. 

Nella seconda occasione l’input 
viene accettato con l’istruzione IN- 
KEY$, dal momento che il giocatore 
deve fornire un numero compreso 
tra 1 e 6 cioè composto da una sola 
cifra. 

Con INKEYS il computer non si 
blocca in attesa dell’input ma fa ruo¬ 
tare la stringa, come visto in prece¬ 
denza, finché non viene fornito l’in¬ 
put. 

L’input viene sistemato nella va¬ 
riabile stringa MS per poterlo con¬ 
trollare. Se il giocatore premesse un 
numero maggiore di 6, o il numero 
0, si verificherebbero sicuramente 
degli inconvenienti nel successivo 
svolgimento del programma. Se poi 
il giocatore premesse distrattamente 
una lettera anziché un numero, ad¬ 
dirittura il computer si blocchereb¬ 
be. 

E utile quindi inserire una ruotine 
che ci premunisca contro simili 
eventualità. 

La linea 1020 controlla che il ca¬ 
rattere inserito sia effettivamente un 
numero compreso tra 1 e 6, cioè che 
il codice del numero sia compreso 
tra 49 e 54, oppure, per lo ZX81, tra 
29 e 34. (Vedere sui rispettivi ma¬ 
nuali la Tabella dei Codici). 

Se il giocatore ha premuto un ta¬ 
sto sbagliato il computer ignora il 
dato ricevuto e resta in attesa di un 
input valido. 

L’input viene sistemato nella 
stringa M$ e se supera il controllo il 
valore di MS viene trasferito in M 
mediante la funzione VAL (linea 
1030). 
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La semina delle biglie 


La variabile M contiene il numero 
relativo alla buca di partenza scelta 
dal giocatore. Le biglie contenute 
nella buca indicata vanno raccolte e 
seminate, una alla volta, nelle buche 
successive in senso antiorario. 

La quantità di biglie contenute in 
ogni buca è conservata nel vettore A 
di dodici elementi: A (1) sarà uguale 
al numero di biglie contenute nella 
buca 1, A (2) sarà uguale al numero 
di biglie contenute nella buca 2, e 
così via. Quindi se il giocatore pre¬ 
me, per esempio, 5, la variabile M 
diventa uguale a 5 ed il computer 
capisce che deve spostare le biglie 
dalla buca 5, e saprà quante sono 
queste biglie leggendo il valore di A 
(M). 

La linea 1040 stabilisce che la va¬ 
riabile numerica CAP è uguale al 
numero di biglie contenute in A (M). 
(Vedremo tra poco perché). 

La linea: 


1060 IF NOT CAP THEN GOTO 
1010 (IF NOT CAP = IF CAP = 0) 


verifica la possibilità che il giocatore 
abbia scelto di muovere partendo da 
una buca che non contiene nessuna 
biglia. In questo caso si ha A (M) = 0 
e anche CAP = 0, ed il computer 
torna alla linea 1010, cioè rifiuta 
l’input e rimane in attesa di un altro 
numero relativo ad una buca conte¬ 
nente almeno una biglia. 

Se la buca scelta contiene delle 
biglie, queste vengono tolte dalla 
buca e sistemate nella variabile 
CAP. Evidentemente la buca rima¬ 
ne vuota, e infatti la linea 1090 asse¬ 
gna ad A (M) il valore zero. 

Ecco perché abbiamo spostato il 
valore di A (M) nella variabile CAP: 
perché pur azzerando A (M) il com¬ 
puter deve sapere quante biglie c’e¬ 
rano nella buca e quindi quante ne 
deve seminare nelle buche successi¬ 
ve. 

I cicli compresi tra le linee 1100 e 
1300 effettuano la semina. Per capi¬ 
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re il procedimento immaginiamo 
che il giocatore abbia scelto la buca 
1 e che tale buca contenga 3 biglie; la 
semina deve avvenire partendo dalla 
buca 2 fino alla buca 4. Se il giocato¬ 
re ha scelto la buca 5 che contiene 15 
biglie, la semina deve cominciare 
dalla buca successiva alla 5, cioè dal¬ 
la 6, e deve procedere fino alla buca 
12; in questo modo vengono semi¬ 
nate 7 biglie. Poi la semina deve ri¬ 
prendere dalla buca 1 e deve conti¬ 
nuare Fino alla buca 8, quando tutte 
le biglie saranno seminate, una per 
buca. 

Occorre quindi più di un ciclo per 
effettuare la semina e questa può 
partire da qualsiasi punto della scac¬ 
chiera e può terminare in qualsiasi 
altro punto, dove avercompiuto an¬ 
che più giri. 

I cicli compresi nelle linee 1100- 
1300 soddisfano tutte queste esigen¬ 
ze. La routine è però difficile da ca¬ 
pire a prima vista; infatti si è tentato 
di restringere al massimo le linee di 
programma usate per contenere il 
programma entro i 16 Kbyte dello 
Spectrum nella configurazione mi¬ 
nima, pur lasciando una sola istru¬ 
zione per la linea della portabilità su 
ZX81. 

Per capire la routine 1100-1300 
(listato-base 1 ) proviamo a scriverla 
per esteso. Prima analizzeremo nel 
dettaglio questa stesura, poi vedre¬ 
mo come utilizzando l’operatore 
AND possiamo eliminare molte li¬ 
nee doppie e realizzare un notevole 
risparmio di memoria. 

La versione estesa è presentata nel 
listato 13. 

La linea 1100 effettua la semina 
partendo dalla buca M + 1, fino alla 
buca 12. Ciò è valido quando la 
mossa tocca al giocatore e anche 
quando tocca al computer perché in 
ogni caso vanno seminate le buche 
da quella scelta fino alla dodicesi¬ 
ma. 

K è la variabile di controllo del 
ciclo ed assume di volta in volta tutti 
i valori interi possibili compresi tra 
M + 1 e 12. 

Con l’espressione: A (K) = A (K) 


+ 1 in tutte le buche comprese tra M 
+ 1 e 12 viene aggiunta una biglia. 

Beninteso, le buche vengono in¬ 
crementate tutte fino alla dodicesi¬ 
ma se non si verificano prima le con¬ 
dizioni previste alle linee 1120e 1125 
che pongono termine all’esecuzione 
del ciclo. 

Mentre ad ogni ciclo la buca A 
(K) (ricordiamo che K varia da M + 
1 a 12) viene incrementata di uno, la 
variabile CAP viene diminuita di 
uno. 

La subroutine 8000 stampa sullo 
schermo, nelle posizioni opportune 
all’interno della scacchiera, le quan¬ 
tità aggiornate di biglie contenute in 
ogni buca. 

Ad un certo punto accade che 
CAP diventa uguale a zero; ovvero 
che non ci sono più biglie da semina¬ 
re. Quando è teminata la semina, in 
tutti e quattro i giochi sono possibili 
due situazioni: 

— la semina termina in una buca 
vuota; 

— la semina termina in una buca 
contenente biglie. 

La linea 1120 verifica la prima 
eventualità. Se CAP = 0 vuol dire 
che la semina è terminata; se A (K) 
= 1 vuol dire che la buca seminata 
per ultima era vuota, e ora contiene 
per l’appunto l’ultima biglia semi¬ 
nata. 

La linea 1125 verifica la seconda 
eventualità (ci riferiamo sempre al 
listato 13). Se la buca raggiunta fos¬ 
se stata vuota, il computer sarebbe 
passato alla linea 1150 con l’istru¬ 
zione precedente (quella della linea 
1120) e non sarebbe passato più alla 
linea 1125. 

Se al termine del primo ciclo FOR 
K la semina non è ancora terminata, 
seminata la buca 12, si continua par¬ 
tendo dalla buca 1. 

Il secondo ciclo FOR K, linea 
1135 del listato 13, va da 1 a M per 
completare il giro della scacchiera, 
dal momento che il primo ciclo FOR 
K era partito da M + I. 

La semina si ripete come già visto. 

Se le biglie da seminare sono an- 
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cora più di dodici un solo giro non è 
sufficiente. 

La linea 1170 fa tornare alla 1100 
e qui la semina, terminata alla buca 
M, riprende nuovamente alla buca 
M + 1 finché non si verifica che 
CAP =0. 

Ammettiamo, per esempio, che il 
giocatore abbia scelto di muovere le 
15 biglie contenute nella buca 5. La 
semina avviene con le seguenti mo¬ 
dalità: 


Per fare ciò, sistemiamo tale ciclo 
all’interno di un altro ciclo FOR Z 
che va da 1 a 2. (A questo punto 
possiamo tornare alla routine 1100- 
1300 del listato-base 1). 

Questo ciclo FOR K “unificato” 
avrà il seguente intervallo: 

— da M + 1 a 12 quando Z è uguale 
a 1; 

— da 1 a M quando Z è uguale a 2. 
Ne consegue che la linea 1105 pro¬ 
duce dei risultati diversi. Quando 


Ciclo 1100: K va da 6 a 12 
semina 7 biglie 
Ciclo 1135: K va da I a 5 
semina 5 biglie 
Ciclo 1100: K va da 6 a 12 
semina 3 biglie e esce dal ciclo per¬ 
ché CAP = 0. Ora, se il funziona¬ 
mento dei due cicli FOR K è chiaro, 
possiamo fare un esame di tipo di¬ 
verso, cioè esaminare le differenze 
tra un ciclo e l’altro, che sono poche 
e concentrate nelle linee 1100 e 1135. 
Tutte le linee dalla 1105 alla 1130 
sono assolutamente identiche alle li¬ 
nee dalla 1140 alla 1165. 


Z = 1 

FOR K = 1 + (M) TO (12) + (0) 
o meglio: 

FOR K = 1 + M TO 12 
Quando TL — 1\ 

FOR K = 1 + (0) TO (0) + (M) 
cioè: 

FOR K = 1 TO M 


Anche le due linee diverse hanno 
comunque molte analogie: si tratta 
di due cicli FOR K. Varia solo l’in¬ 
tervallo di azione dei due cicli. 

Si possono allora riunire in un 
unico ciclo FOR K. 


Occorre sempre tenere conto che 
l’espressione tra parentesi vale zero 
quando è falsa, oppure assume un 
altro valore quando è vera. 

Se non è specificato alcun valore 
vale 1. Nella linea 1105 i valori sono 


specificati con l’aiuto di AND, quin¬ 
di le tre espressioni tra parentesi, 
quando sono vere, valgono rispetti¬ 
vamente: 


M, 12, M 

Lo stesso metodo descritto per 
condensare i cicli FOR K in uno solo 
viene usato nelle routine che com¬ 
prendono le linee 2015 e 8010. 


Sfida tra due giocatori 

Per giocare contro un avversario 
umano occorre utilizzare il listato- 
base 2, integrandolo con uno dei 
moduli indicati nella tabella 1. In 
questa versione la scacchiera visua¬ 
lizzata è diversa da quella illustrata 
nella figura 1, ma le regole e lo svol¬ 
gimento dei giochi rimangono iden¬ 
tici. 

Quando la variabile G è uguale a 
due il turno passa al secondo gioca¬ 
tore anziché al computer e la sua 
mossa viene accettata utilizzando la 
stessa routine usata per il primo gio¬ 
catore (linee 1000-1090). 

Da notare che anche il secondo 
giocatore indica le buche di parten¬ 
za con i numeri da 1 a 6. (Come 
farebbe se giocasse con la scacchiera 
della figura I, dove la numerazione 
da 1 a 6 è valida per entrambe le file 
di buche). 

Il computer sa che la buca 1, del 
primo giocatore, è effettivamente 
tale; mentre la buca 1 del secondo 
giocatore è invece la 12, cioè quella 
di fronte alla 1 come indicato negli 
schemi della figura 2. 

Infatti l’istruzione: 

1040 IF G = 2 THEN LET M = 

13-M 

non produce alcun effetto quando è 
il turno del primo giocatore, mentre 
quando è il turno del secondo gioca¬ 
tore (e G vale quindi 2), se questi 
preme 1, M diventa uguale a 12(13 — 
1 )- 

La differenza 13-M rimane valida 
per tutte le sei buche. Per esempio, 
13 - 6 = 7. 
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Capita spesso che il computer 
debba interpretare in modo diverso 
un dato fornito in input. Indivi¬ 
duando il rapporto che lega i dati da 
fornire è possibile fare in modo che 
il computer interpreti diversamente 
dati uguali forniti in condizioni di¬ 
verse. 

Pensate, per esempio, al diverso 
valore di ogni tasto quando il curso¬ 
re è in stato K o in stato L. 

Con il listato-base 2 tutta la routi¬ 
ne 6000-6710 viene omessa perché il 
computer non partecipa più al gio¬ 
co. 

La variabile GH (usata anche nel 
listato-base 1 ) è uno switch, cioè una 
di quelle variabili che possono assu¬ 
mere due valori diversi e fanno com¬ 
piere al computer uno o l’altra azio¬ 
ne in dipendenza del loro valore. 
(Anche G è uno switch). 

GH serve a far scrivere in modo 
extra-luminoso l’ultima casella rag¬ 
giunta al termine della semina. 

La semina avviene con le modali¬ 
tà descritte in precedenza, per effet¬ 
to del ciclo FOR K delle linee 1100- 
1300. 

Quando CAP diventa uguale a ze¬ 
ro la semina termina, cioè il ciclo 
FOR K viene abbandonato. Se oltre 
ad avere CAP = 0 abbiamo anche A 
(K) = 1, allora la semina è terminata 
in una buca vuota e la mano passa 
all’altro giocatore. 

Per segnalare con efficacia il pun¬ 
to in cui la semina è terminata, fac¬ 
ciamo stampare in caratteri extra¬ 
luminosi l’ultima buca raggiunta. 
Ora, se la semina termina nella buca 
vuota 7, è evidente che il ciclo FOR 
K viene abbandonato quando K = 
7. Allora sappiamo che per eviden¬ 
ziare l’ultima buca raggiunta il com¬ 
puter deve stampare con caratteri 
normali tutte le buche meno la 7 che 
va stampata con caratteri extra¬ 
luminosi. 

La linea 1550 sistema nella varia¬ 
bile GH il valore di K. La linea 1552 
manda in esecuzione la subroutine 
8000. Qui con l’istruzione: 

BRIGHT (GH = D); FLASH (GH 
= D) 
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Riquadro 1. Commenti al listato-base 1. 


500-530 Dimensiona il vettore A, composto da dodici elementi. 

Questo vettore conterrà il numero aggiornato di biglie presen¬ 
ti in ogni buca. Poiché all’inizio ogni buca contiene quattro 
biglie, il ciclo FOR D assegna il valore 4 a tutti i dodici 
elementi del vettore. 

532 11 vettore P ha due elementi: P (1) contiene il numero di biglie 

catturate dal giocatore, P (2) quelle catturate dal computer. 

540 La variabile CM è il Contatore delle Mosse e viene incremen¬ 

tata di uno ogni volta che viene eseguita la linea 1599. La linea 
1600 fa tornare il programma alla linea 1000, segno che il 
gioco passa all’avversario. 

Invece quando Finisce una partita il computer torna alla linea 
500 e CM viene azzerato. Le variabili dalla linea 500 in poi 
vengono azzerate al termine di ogni partita; quelle tra la linea 
100 e la linea 185 solo una volta all’inizio. 

100-185 Le variabili VI e V2 contengono la quantità di partite vinte da 
ogni giocatore e ovviamente vengono azzerate una sola volta 
all’inizio della prima partita. La variabile CP è il Contatore 
delle Partite giocate. G$ (1) contiene il nome del giocatore e 
viene inizializzata con un input. 

La linea 105 va a leggere nella subroutine 5750 (all’interno del 
modulo inserito) il nome del gioco scelto. 

La variabile G assume, nel corso dello svolgimento del pro¬ 
gramma, due valori: uno o due. Quando G è uguale a uno 
deve muovere il giocatore, quando è uguale a due deve muo¬ 
vere il computer. 

1005 II computer seleziona il messaggio da far scorrere sullo scher¬ 
mo. 


1006 Quando G è uguale a 2 viene eseguita la subroutine 6000-6710 
che determina la mossa del computer. 

1040-1300 La variabile CAP contiene il numero di biglie che devono 
essere seminate. I vari loop compresi nella routine eseguono 
la semina incrementando ad ogni esecuzione A (K) di uno e 
togliendo uno a CAP. 

Quando CAP = 0 e A (K) = 1 vuol dire che l’ultima biglia è 
stata seminata in una buca vuota. 

2000-2070 La routine verifica se un giocatore o l’altro non ha più biglie 
nelle sue buche. Se la condizione è vera passa alla linea 2100. 

2100 II computer assegna la vittoria al giocatore che ha catturato 
più biglie. 

2700-2710 Confeziona una stringa con i dati della partita in corso, da far 
scorrere sullo schermo. 

3000-3148 Alcuni messaggi che il computer farà scorrere sullo schermo. 

6000-6710 Routine che determina la mossa del computer nella quale si 
inserisce il modulo 2. 

7000-7060 Routine che fa scorrere sullo schermo i vari messaggi selezio¬ 
nati. 

8000-8100 Subroutine che aggiorna ad ogni mossa la quantità di biglie 
presenti in ogni buca. 










Presso i Bit Shop Primavera 

il software di casa... 



WORD PROCESSOR 48 K 

Programma per elaborare testi usando lo 
ZX Spectrum, in due versioni che consentono 
di trattare: 

A: 1000 righe di 31 caratteri con la stampante 
ZX Printer. 0 450 righe di 63 caratteri con 
la stampante Seikosha GP-100A. 

Il testo si compone su video, può essere 
memorizzato su nastro, richiamato in 
memoria, corretto e modificato, stampato 
totalmente o parzialmente. 


AGENDA 48 K 

Il programma consente di creare e di 
aggiornare un'agenda di indirizzi di 200 
nominativi, 

I dati memorizzati sono: NOME (31 c.l. 
VIA (31 c.l,CITTA' (23c.l,Tel. (15c.), 
NOTE (31 c.l. 

Si possono ricercare I nominativi in base a 
uno qualunque dei 6 campi memorizzati 
si possono ottenere liste sul video o sulla 


BILANCIO FAMILIARE 48 K 

Un programma di gestione familiare che vi 
permetterà di controllare I vostri guadagni e 
le vostre spese. 

Potrete memorizzare fino a 450 registrazioni 
e avere In ogni momento la situazione 
aggiornata del vostro budget casalingo, con 
spese e entrate suddivise per categorie. 


stampante. 



...sul vostro 

ZX Spectrum 

naturalmente 


CamPETEFlEfl 

in compuTER 


primavera 
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Per giocare contro il computer con lo Spectrum: 

AWELE: Listato-base 1 + Mod. Awele 1 + Mod. Awele 2 (Listati 3 e 7) 

OWARE: Listato-base 1 + Mod. Oware 1 + Mod. Oware 2 (Listati 4 e 8) 

KAKUA: Listato-base 1 + Mod. Kakua 1 + Mod. Kakua 2 (Listati 5 e 9) 

TAMTAM APACHI: Listato-base 1 + Mod. Tamtam 1 + Mod. Tamtam 2 (Listati 6 e 10) 

Per giocare contro un altro avversario con lo Spectrum: 

AWELE: Listato-base 2 + Modulo Awele 1 (Listato 3) 

OWARE: Listato-base 2 + Modulo Oware 1 (Listato 4) 

KAKUA: Listato-base 2 + Modulo Kakua 1 (Listato 5) 

TAMTAM APACHI: Listato-base 2 + Modulo Tamtam Apachi 1 (Listato 6) 

Per giocare contro il computer con lo ZX81: 

Come per lo Spectrum, però il listato base 1 deve essere modificato sostituendo alcune sue linee con quelle 
del modulo ZX81 (Listato 11) 

Per giocare contro un altro avversario con lo ZX81: 

Come per lo Spectrum, però il listato-base 2 deve essere modificato sostituendo alcune sue linee con quelle 
del Modulo ZX81/2 (Listato 12) 


Tabella 1. Riassunto dei listati e dei moduli da utilizzare per ottenere ciascuna delle sedici combinazioni possibili. 


assegniamo i! valore 1 a BRIGHT e 
FLASH, cioè li rendiamo operanti, 
solo quando GH = D (e quindi 
quando K = D perché GH = K), 
cioè quando stampiamo i valori re¬ 
lativi aH’ultima buca seminata. 

Quando GH è diverso da D allora 
abbiamo FLASH 0; BRIGHT0, e la 
buca relativa viene scritta in caratte¬ 
ri normali. 

Al termine di ogni scrittura dob¬ 
biamo rimettere a zero la variabile 
GH (linea 8099) altrimenti il com¬ 
puter scrive in caratteri extralumi¬ 
nosi non solo quel carattere ma an¬ 
che tutti i seguenti. 

La variabile GH diventa nuova¬ 
mente uguale a K al termine della 
mossa successiva, ancora per effetto 
della linea 1550. 


Versione per lo ZX81 

Tutti i quattro programmi, nelle 
otto versioni possibili, possono esse¬ 
re caricati anche sullo ZX81. 

Qui purtroppo sono assenti i co¬ 
mandi BRIGHT e FLASH e anche 
il comando BEEP. 

La scacchiera relativa al giocatore 
che ha in mano il turno di gioco 
viene indicata con una T o con un 
quadratino nero, anziché con uno 
spazio nero lampeggiante; inoltre 
per indicare l’ultima biglia seminata 
lo ZX81 stampa un asterisco nella 
buca relativa, al fianco del numero 
di biglia. 

Il risultato è meno attraente ma 
ugualmente efficace. 

Mancano tutti i messaggi sonori, 


che avevano anche la funzione di 
rallentare il gioco in alcuni suoi pas¬ 
saggi: per questo al posto delle linee 
contenenti istruzioni BEEP sono 
state inserite linee con l’istruzione 
PAUSE. 

I listati base 1 e 2 vanno modifica¬ 
ti rispettivamente come indicato nei 
moduli ZX81 1 e 2. Invece tutti gli 
altri moduli (listati dal 3 al 10) non 
hanno bisogno di modifiche. 

Per finire, alcune note bibliografi- 
che. I dati relativi ai quattro giochi 
sono stati ripresi da “IL CENTO- 
GIOCHI”, Ed. Garzanti Vallardi. I 
proverbi del listato-base 1 sono trat¬ 
ti da “10.000 PROVERBI”, Ed. 
Frate Indovino. Quelli del listato- 
base 2 da “I PIU’ BEI PROVERBI 
CINESI”, Ed. De Vecchi. ■ 


Listato-base 1. Consente di giocare uno dei quattro giochi, a scelta, contro il computer. A questo listato vanno aggiunti 
due moduli come indicato nella tabella 1. La versione presentata è relativa allo Spectrum, tuttavia tutte le variabili sono 
state scritte in caratteri maiuscoli per avere un listato più comprensibile. Per ottenere lo stesso effetto il lettore deve 


premere subito dopo l’accensione, CAPS SHIFT e 2. 


1 

REM 

LISTATO-BASE 1 

2 e-.si 

LET 

G=1 

205 

GO 

SUB 5750 

210 

LET 

VI =0 

120 

LET 

U2=0 

125 

LET 

CP = 2 

130 

DIM 

GS(2,10) 


135 

LET Si (2) ="'COMPUTER" 

152 

GO SUB 9500 


168 

PRINT AT 10/0; 

"COME TI CHIP 

MI ?• 

* 


170 

INPUT Géftl) 


160 

IF G$ (li (21 

" THEN GO TO 

170 



1S5 

CLS 


500 

DIM A(12) 


510 

POR D=i TO 12 
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Seguito listato base 1. 


520 LET A(D)=4 
530 NSX T D 
532 DIM P (2) 

534- LET GH=0 
54.© LET CM = 1 
54.2 Gii Stffl 2000 
544 GD SUB 8000 

Ì000 PRINT AT 6,34; CP; AT 7,24; CH 

1002 PRINT AT 21,2+(7 AND G = l); 

FLASH 1; BRIGHT 1; " " 

1003 PRINT BRIGHT 1;AT 9.16;G$(1 
+ ( G =2 .1 ) 

1004 PRINT AT 11,16;" 

1005 GD SUB 27004(300 PUD RND>.S 

1006 IF G=2 THEN GO TO 6000 

1007 IF INKEY*=“" THEN GO SUB 70 
30 

1010 LET M*=INKEY$ 

1014 GO SUB 5800 

1026 IF CODE M*<49 OR CODE M*>54 
THEN GO TO 1010 
1030 LET M«=URL M$ 

1040 LET CAP=A(H> 

1060 IF NOT CAP THEN GO TO 1010 
1090 LET A(M)=® 

1100 FOR Z=1 TO 2 

1105 FOR K=1+(M RND Z=l) TO (12 
AND Z=1.»4(M RND Z-Ol) 

1110 LET A (K) =A (K > 41 
1115 GO SUB 3000 
USO LET CRP=CRP-1 

113® IF A(K>=1 RND NOT CRP THEN 
GO TO 1550 

1140 IF NOT CRP THEN GO TO 5000 
1200 NEXT K 
1300 NEXT Z 

1310 IF CRP > 0 THEN GO TO 1100 
1550 LET GH=K 

1552 GO SUB 8000 

1553 FOR H=1 TO 3: BEEP .3,2: BE 
EP .3,5: NEXT H 

555 PRINT FTT 21,2 4(7 RND G=l);“ 


É' 

1 ! 


550 GO SUB 5500 

1579 BEEP .2,8; BEEP .5,-5 

1580 GO SUB 8000 

1585 PRINT BRIGHT 1;RT 1,2,P(2); 
AT 1,9,P(l) 

1594 LET G=G4l 

1595 IF G=3 THEN LET G=1 

1596 GO TO 2000 

1599 LET CM=CM4l 

1600 GO TO 1000 

2000 REM UERIFICfl UITTORIR 
2005 FOR N=i TO 2 
3010 LET U=0 

2015 FOR U=l4(6 RND N=2) TO 64(6 
RND N=2) 

2020 LET U=U4R(U> 

2030 NEXT U 

2040 IF U=0 THEN GO TO 2100 

3050 NEXT N 

3070 GO TO 1599 

2100 LET ya=U24(P(2) >=P(1) ì 

2105 LET U1=U1+IP(1) >=P(21) 

2107 LET CP=CP4l 

2200 GO SUB 5800 

2201 FOR U=10 TO 18 

2204 PRINT RT U,16, BRIGHT li" 

2205 NEXT U 

2207 PRINT RT 11,18; "UINCE ";RT 
13,18; G$(1+(P(2! >P(1) > ) 

2215 FOR U=1 TO 5. BEEP .2,-5: © 

=£P .4,5: NEXT U 

3220 PRUSE 20000 
2230 GO TO 500_ 

2700 LET Y$*"|i "+£* + " ■T'4" PR 
RTITfl "4STR* CP4" ■■ PRESE "+G$ 
( 1 ) +STRI PC 1)4“ ** “4G*(2)4STR* 

P (2) 

2710 RETURN 

3000 RRNDOMIZE : LET Y = INT (RND* 
20) 41 

3010 GO SUB 309S4Y*2 
3030 RETURN 

3100 LET Y*=“BASTA UN FIORE SUL 


Seguito listato base 1. 

MELO R FRR SORRIDERE IL CIELO * 

: RETURN 

3102 LET Y*="AMARE E" SERUIRE, E 
SSERE AMATI E' DOMINARE * RET 

URN 

3104 LET Y*=“IL CUORE NON E' MER 
CE DA COMPRARE * ": RETURN 
3106 LET Y*=“PER FARE UN AMICO B 
ASTA UN BICCHIERE DI UINO, PER C 
ONSERUARLO NON BASTA UNA BOTTE * 
": RETURN 

3108 LET Y*=“DIO CI DA LE NOCI M 
A NON CE LE ROMPE * ”: RETURN 
3110 LET Y*=”SIA NELLE ETÀ' MI GL. 
IORI CHE NEI PERIODI BRUTTI, LA 
DONNA E UN PORTA-FIORI E L'UOMO 
UN PORTA-FRUTTI * ”: RETURN 
3112 LET Y# = “FRA RISCHI, TENTATI 
UI E DELUSIONI SON SEMINATE LE S 
ODDISFAZIONI * ": RETURN 
3114 LET Y* = “L'IGNORANZA E' PEGG 
IDRE DELLA POVERTÀ' * ": RETURN 

3116 LET V$="E' MEGLIO AVER DAL 
GIUDICE UNA MANO, CHE DAL PROPRI 
O AVVOCATO UN BRACCIO SANO * 
RETURN 

3118 LET Y$="PIU' SI GIUDICA E M 
ENO SI AMA * ": RETURN 

3120 LET Y $ = "ACQUA LONTANA NON E 
3TINGUE FUOCO * ": RETURN 

3122 LET Y*="UN DIAMANTE CON SUR 
LCHE DIFETTO E" MIGLIORE DI UN £• 
ASSO PERFETTO * ": RETURN 

3124 LET Y $ = “NEL BREVIARIO DEGLI 
SCALTRI OGNI REGOLA E' PER GLI 
ALTRI * ": RETURN 

3126 LET Y*=“L'AMORE E' UNA STRB 
NIS3IMA E DOLCE ASSURDITÀ' CHE D 
'ASTINENZA NUTRESI E MUOR DI SAZ 
IETA' * "; RETURN _ 

3128 LET Y4="MEGLIO AVERE UN NEH 
ICO DI UALORE CHE UN AMICO MESCH 
INO E TRADITORE * ": RETURN 

3130 LET Y $ = "CHI CERCA IL TEMPO 
PERSO GIRA PER L'UNIVERSO; SI AF 
“ANNA, SI ADDOLORA E PERDE TEMPO 
ANCORA * “: RETURN 

3132 LET Y$="IL SOLE CHE NASCE H 
A PIU' ADORATORI DI QUELLO CHE T 
RAMQNTA # RETURN _ 

3134 LET Y$="IL CORAGGIO UI NCE A 
LCUNI DOLORI, LA PAZIENZA TUTTI 
GLI ALTRI * “: RETURN 
3136 LET Y$ = "CHI PARLA SEMINA, C 
ut TOrE RACCOGLIE * 1 : RETURN 

3138 LET YM-CHI UCCISE L'ELEFRN 
TE DICE IL VERO, MA CHI LO PORTO 
' A SPALLA E' MENZOG 
TURN _ ... 

5800 PRINT AT 20,16; "| 

3820 RETURN 
6000 DIM C(12) 

5002 DIM E(13) 

5005 PRINT AT 11,16; BRIGHT 1; 
LASH l;“STO PENSANDO..." 

5040 FOR 0=7 TO 12 
5042 IF A(O)=0 THEN GO TO 6240 

5044 FOR U=1 TO 12 

5045 LET C(U)=A(U) 

5046 NEXT U 
5050 LET 3=0 
5055 LET GX=C(S) 

5060 FOR H=S4l TO 12 
3080 LET CtS)=0 
3090 LET C(H)=C(H)41 
3100 LET GX=GX-1 
SI10 IF GX=0 THEN GO TO 6190 
SI20 NEXT H 
6130 FOR H=1 TO 12 
3140 LET CfH)=C(H)4l 
5150 LET GX=GX-1 
S160 IF GX=0 THEN GO TO 6190 
3170 NEXT H 
6180 GO TO 6130 
5220 LET S=H 
5225 LET GX=C(S) 

3230 GO TO 6060 
3240 NEXT O 


RE 
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Seguito listato base 1. 

524-5 IF E$ = ”0 U fi R E" THEN GO T 
O 6550 

5250 LET M = 13 

5260 FGR U=7 TO 12 

527» IF E(U)>EfM) THEN LET M=U 

5280 NEXT U 

5320 IF M=13 THEN GO TO 8550 

5330 GO TO 6700 

5550 LET M = INT (RND+6) *7 

3560 IF fi (M)=0 THEN GO TO 6550 

5570 GO TO 6700 

5680 LET M=0 

5700 PRINT fiT 11,16; BRIGHT 1;"M 
UOUO ; fiT 11,24 : 13 -M 

5703 PRINT BRIGHT 1; FLfiSH 1;fiT 
3* CM-S) ,3; fi(M) 

5705 BEEP -2,0: BEEP .3,5 
5710 GO TO 104-0 

7000 IF INKEY* O"” THEN RETURN 
7010 LET Y*=Y*+Y*(1) 

7020 IF INKEY *<>"" THEN RETURN 
7030 LET Y*=Y*<2 TO ) 

704.0 IF INKEY* <>“•• THEN RETURN 

7050 PRINT fiT 20,16; Y* ( TO 15) 

7060 GO TO 7005 

3000 FOR X=1 TO 2 

3005 LET F=3+(1S fiND X = l) 

3010 FOR 0=1+(6 fiND X=2) TO 6+(6 
fiND X =2) 

3020 PRINT fiT F,10.(7 fiND X*2>; • 
_ ' BRIGHT fGH=D); FLfiSH (GH=D) 

^ r «NO XVUJ-; HTCUJ 

3030 LET F =F +(3 fiND X=2)-(3 fiND 
X =1 ) 

304.0 NEXT D 
3050 NEXT X 

3099 LET GH=0 

3100 RETURN 
9000 CLS 
9fr 

9020 
9022 
9030 
9032 
9040 
9042 
9050 
2052 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 



REM 

PRINT 

REM 

PRINT 

REM 

PRINT 

REM 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



9220 FOR K =18 TO 3 STEP -3 
9230 PRINT fiT K,7;UK 
9235 LET UK=UK+1 
3240 NEXT K 
9250 FOR K =1 TO 20 

9255 PRINT RT K,15; ■ , TfiB 31, H 

9260 NEXT 

9270 PRINT fiT 4,16, 

^5 PRINT fiT 19,16; ’ 


3300 PRINT RT 1,2; BRIGHT li ” 

93Ì0 T PRInÌ «T 20,2, BRIGHT 1, "CO 
mp'‘;RT 20.9; g* ri) r to 3 ), - 

9320 PRINT fiT 2,23-LEM E*/2; BRI 

Issa^RINT fiT 6 , 16 ;"PfiRTXTfi";RT. 
7,16; "MOSSA" ; fiT 8,16; TOCCA fi: » 
qr 15,16;"VITTORIE■";fiT 16,le;GS 



Seguilo listato base l. 
tì),U1;fiT 17,16;G*(2),V2 
9409 RETURN 

9500 CLS _ 

3510 PRINT 


3511 PRINT 

3520 PRINT 
JL U H N J. 

3521 PRINT 
>30 PRINT 


IOGHI 


fi F R 


9535 PRINT fiT 4,16-LEN E*/2; INC 
ERSE 1; E* 

9540 RETURN 


Listato-base 2. Questo listato consente di giocare uno 
dei quattro giochi, a scelta, contro un avversario uma¬ 
no. Il gioco scelto si ottiene aggiungendo a questo 
listato un modulo, come indicato nella tabella 1. La 
versione presentata è relativa allo Spectrum. 


1 rem LISTHTO-BOSE 2 
SFIDA TRA DUE 
GIOCATORI 
100 LET G = 1 

105 GO SUB 5750 

106 LET Y* = ” *** "+E * + " *** “ 

107 LET Y*=Y*+Y* 

110 LET 01=0 

120 LET 02=0 

125 LET CP=1 

130 DIM G*(2,10) 

150 FOR K=1 TO 2 

152 GO SUB 9500 

166 'PRXNT'"fiT I®, Oy" COHE Sa. Ciri Zi 
-Jfi IL GIOCATORE ?" 

• THEN GO TO 


170 

INPUT G*(K) 

180 

IF 

G*(K)(1)=” 

170 


185 

CLS 


200 

NEXT K 

500 

DIM 

fi ( 12) 

510 

FOR 

D=1 TO 12 

520 

LET 

fi (D) =4 

530 

NEXT D 

532 

DIM 

P (2) 

534 

LET 

GH=0 

540 

LET 

CM = 1 

542 

GO 

SUB 9000 

544 

GO 

SUB 8000 

1000 

PRINT RT 6+(10 


S ND G=2),29, 
" 

1002 PRINT RT 1,28;CM 

1003 PRINT BRIGHT l;RT 3,21;G*fi 

+ (G=2) ) 

1004 GO SUB 5800 

1005 GO SUB 2700+(300 fiND RND>.5 

) 

1007 IF INKEY* =. THEN GO SUB 70 

30 

1010 LET M*=INKEY* 

1014 GO SUB 5800 

1020 IF CODE M*<49 OR CODE M*>54 
THEN GO TO 1010 
1030 LET M»UfiL M* 

1040 IF G=2 THEN LET M=13-M 
1050 LET CfiP =fi(M) 

1060 IF NOT CfiP THEN GO TO 1010 
1090 LET fi fM) =0 
1100 FOR Z»1 TO 2 

1105 FOR K»1+(M fiND Z = l) TO t12 
9ND Z = 1) + (M fiND ZOl) 

1110 LET fi fK) =fi(K) +1 
1115 GO SUB C000 
1120 LET CfiP»CftP-l 

1130 IF R(K)=1 fiND NOT CfiP THEN 
30 TO 1550 

1140 IF NOT CfiP THEN GO TO 5000 
1200 NEXT K 
1300 NEXT Z 

1310 IF CfiP > 0 THEN GO TO 1100 
1550 LET GH=K 
1552 GO SUB 8000 

1553 FOR H=1 TO 3: BEEP .3,2: BE 
SP .3,5: NEXT H 
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Seguito listalo base 2. 

1555 PPINT RT 6+Ì10 OND Gn2),89; 

1560 DO SUB 5600 

1579 BCEP .2,8: BEEP .S,-5 

1360 60 SUB 8080 

1588 PRINT RT 8,1; G$(l) ; PII) j RT 
3,1;6*(2);P(2) 

1594 LET G-G+l 

1595 IF G=3 THEN LET G = 1 
1506 GO TO 2000 

1509 LET CMaCM+1 

1600 GO TO 1000 

2000 REM UERIFICR UXTTORIR 

2005 FOR N=1 TO 2 

2010 LET U=0 

2015 FOR «J»l+<6 RND N«P) TO 6+ (6 
RND N>S) 

2020 LET U=U+0(U> 

2030 NEXT «J 

2040 IF U=0 THEN GO TO 2100 

2050 NEXT N 

2070 GO TO 1599 

2100 LET U2=U2+(Pt2) >=P(1) ) 

3105 LET U1*U1+(P(1)>=P(8)) 

2107 LET CP.CP+1 
2200 BRIGHT 1: FLRSH 1 
2205 GO SUB 5800 
3210 GO SUB 2500 

3215 FOR J=1 TO 5. BEEP .2,-5: B 

SEP .4,5: NEXT U 

2220 PAUSE 20000 

2225 BRIGHT 0: FLRSH 0 

2230 GO TO 500 

2500 PRINT RT 18,12; BRIGHT 1;”U 
ITTORIE" 

2510 PRINT RT 19,1; BRIGHT 1;G*< 
1) ;Ui;flT 19,20; G* 02) ; U2 
2520 RETURN 


■" + 


_ PR 

PRESE: "+G 
+G*(2)+STR 


2700 LET Y|r"H 
RTITfi " +STRI CPT’’ _ 
t(l) +STR* P ( 1 ) +■ " ** 

* P (2) 

2710 RETURN 

3000 RRNDOMIZE : LET Y = INT (RND* 
25) +1 

3010 GO SUB 3098*Y*2 
3030 RETURN 

3100 LET Y$«"IL PESCE CHE NON SI 
Z' PRESO E' SEMPRE QUELLO PIU' 
GROSSO » ". RETURN 

3102 LET Y$=”LR RRNR DRL FONDO D 
SL POZZO CHE COSR PUÒ' UEDERE DE 
L CIELO 7 * RETURN 

3104 LET Y»="UN CANE RICONOSCENT 
Z '.IRLE PIU' DI UN UOMO INGRATO * 
": RETURN 

3106 LET Y*=”IO SONO UN SIGNORE, 
TU SEI UN SIGNORE, SIANO TUTTI 
SIGNORI, Mfi IL CAUALLO CHI LO ST 
R1GL1R 7 * RETURN 

3108 LET Y $ = "NON SEMINARE RISO O 
_L'RPPRRIRE DEGLI UCCELLI * ” : 
RETURN 

3110 LET Y*i"METTI UNA RRNR SUL 
TRONCO DI UN ALBERO E PRESTO SRL 
TERR' NEL TUO RISO * RETURN 

3112 LET Y$=“IL TEMPO CRTTIUO E' 
SEMPRE PEGGIORE 5E LO SI GUARDA 
DR UNA PICCOLO FINESTRA * ”: RE 
TURN 

3114 LET YS="IL CIELO FR SEMPRE 
IL NIDO ALL' UCCELLO CIECO * ": 
RETURN 

3" '’S ■ LET- ■ Y3x*"-I-L— CUCULO SO QUANDO 
SPUNTO IL GIORNO E LO CIUETTO © 
JONDO INCOMINCIO LO NOTTE * ”: R 
2TURN 

3118 LET Y$=“DI RODO L'UOMO ORRI 
VO O CENTO ANNI, MA OLIANDO UI Gl 
JMGE CHE UONTOGGIO NE HO ? * " : 

RETURN 

3120 LET YS="IL RICCO NELLE CAVE 
RNE RICEUE VISITE, IL POVERO RIM 
ONE SOLO ONCHE IN MEZZO OL MERCO 
TO * ” ; RETURN 

3122 LET Y $ = "SE TI MONCO UN CUOR 
S DO GUERRIERO NON RVROI MAI UN 
ESERCITO * ": RETURN 

3124 LET Y$="NE DO UN MORTO CI 
SI DEVE OSPETTORE UN DISCORSO. N 


Seguito listato base 2. 

a■ DO UN AVARO UN BENEFICIO * 

R“T URN 

3126 LET Y $ = "GLI UOMINI MODERATI 
APRONO LE OSTRICHE CON LO FORZO 
DELLO PERSUOSIONE * ": RETURN 

3128 LET Y$="OUANDO UN UOMO SI L 
OMENTO DELLO FOTICO CHE SOPPORTO 
, METTETELO O FOR NIENTE * P 

ETURN _ , 

3130 LET Y * = "CARATTERISTICA DELL 
'UOMO STOLTO E CERCARE DI ESSER 
FURBO * •’ : RETURN 
3132 LET Y$=" UN BUON CORRIDORE N 
3N LASCIA ORME * M . RETURN 
3134 LET Y f e"NON IHPORTO QUANTO 
IL CONE SIO PIDOCCHIOSO, EGLI H 
0 SEMPRE I SUOI SEGUACI * ": RET 
JRN 

3136 LET Y*="CI UUOLE UNO UITO P 
5R CAPIRE CHE NON E' NECESSORIO 
CAPIRE TUTTO * ": RETURN 
3138 LET YDORMIRE NON E' POCO 
ARTE : E' NECESSORIO UEGLIORE TU 
TTO IL GIORNO PER RRRIUORCI * " 

RETURN 

3140 LET Y♦*"NELLO STAGIONE CATT 
TUO LE ACQUE SCORRONO ALL'INDIET 
RO * ": RETURN 

3142 LET Y*="MEGLIO OUERE IN COS 
R UN GRANELLO DI PEPE CHE UNO CE 
STO DI ZUCCHE * 1 : RETURN 

3144 LET Y*="IL SOLE CHE NASCE H 
A PIU' ODOROTORI DI QUELLO CHE T 
ROMONTO * ": RETURN 

3146 LET Y $ = ”CHI NON NASCE PROTE 
TTO DOLLR FORTUNA, ONCHE SE CODE 


LEGGETE 



inggHe»sf m 





LA PRIMA E PIU’ DIFFUSA RIVISTA 
DI PERSONAL COMPUTER. 

OGNI MESE TROVERETE 


SUPERBITI 


DIGIDATTICA: 


64 PAGINE 
DI PROGRAMMI 
PER IL VOSTRO 
PERSONAL 

16 PAGINE 
DEDICATE 
AL MONDO 
DELLA DIDATTICA 
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Seguito listato base 2. 


ALL INDIETRO SI ROMPE IL NRSO * 
": RETURN 

31+8 LET Y*=“RISPETTATE GLI SPIR¬ 
ITI CELESTI E TERRESTRI MR TENET 
ELI LONTRNI » RETI 



7880 IF INKEY* <>•'“ THEN RETURN 
7010 LET Y*=Y*+Y*(1) 

7020 IF INKEY *<>"" TMEN RETURN 
7030 LET Y*=Y* <2 TO ) 

70+0 IF INKEY* <>“■' THEN RETURN 

7050 PRINT RT 20,I;Y»I TO 15) 

7051 IF INKEY*<>““ THEN RETURN 
705+ PRINT RT 20,16;Y* <16 TO 29) 
7055 IF INKEY* < >‘"* THEN RETURN 
7060 GO TO 7000 

3000 FOR X=1 TO 3 

8005 LET F =S+(20 AND X=l) 

9010 FOR D*1+(S RND X=2) TO 64-(6 

3020 PRINT RT S+ (6 

BRIGHT (GH=D) ; FLASH (GH-O), 

3M*iSr"Kr5iS , ANÌ ,, x53..-<t bnd 

X = l) 

30+0 NEXT D 
3050 NEXT X 
3090 LET GH=0 
8100 RETURN 
9000 CLS 



3080 PRINT 

906?REM*TU?TE LE LINEE COME 
3060 SONO COMPOSTE COSI': 

3083 REM UNO SPAZIO NERO (■) ; DU 
2 SPAZI BIANCHI; UNO SPAZIO NERO 
(■) ; MEZZO SPAZIO NERO SINISTRO 
T) ; DUE SPAZI BIANCHI;MEZZO DEST 
PO ( |) ; MEZZO SINISTRO (■) ; DUE S 
^RZI; MEZZO DESTRO < |) , MEZZO SIN 

ISTRO ECC.ECC._ _ _ _ 

9090 PRINT M ■ ■ ■ I 



-M-TW-i-riìTJB 


9202 PRINT AT 2,21;“TOCCA A:“ 
9210 PRINT AT +,16-LEN E*/S; INV 
ERSE 1;E* 

9310 RETURN 
3500 CLS 
9510 PRIN T 

9511' PRIt^ 

9520 PRINT TRB 16-LEN E*/2; INUE 


Seguito listato base 2. 

F 


Listati 3-4-5-6. Questi moduli vanno inseriti sia nel 
listato-base 1 che nel listato-base 2, per ottenere il 
gioco desiderato. Non hanno bisogno di modifiche per 
lo ZX81. 

Listato 3. 


9SE 1; E* 
3SS1 PRINT 
PRINT 


95+0 RETLIRN 


REM 


MODULO AUELE.-'l 
DA INSERIRE NELLE 
BASI 1 E 2 


3000 REM MODULO RUELE 
3005 IF A tK > < >2 AND A(K)<>3 THEN 
GO TO 1550 
5030 FOR T«K TO 
3ND K<7) 

50+0 IF A(T) < >2 
GO TO 5130 

5050 LET P (G) »P (G)+A (T) 

5052 LET GH=T 
•KAFL** Rfl FI IR 8000 
5055 BEEP - 5,+ 

3060 LET A <T)=0 
5070 NEXT T 

5130 FOR T=K-1 TO (K<7>+(6 AND 
>6) STEP -1 

31+0 IF A(T)<>2 AND A(T)<>3 TMEN 
GO TO 1550 

3150 LET P fG) =P (G) 4-A (T.) 

5152 LET GH=T 

5153 GO SUB 8000 
5155 BEEP .5,0 
5160 LET A <T)=0 
15170 NEXT T 
5180 GO TO 1550 
3500 RETURN 

5750 LET E* = "R U E L E" 

5755 RETURN 


(12 AND K >6) + (6 
AND A(T) < >3 THEN 


K 


Listato 4. 

2 

REM MODULO OUARE/1 

DA INSERIRE NELLE 
BASI 1 E 2 

5000 

REM MODULO OLIARE 

5005 

IF A(K) <>+ THEN GO TO 5030 

5010 

LET P (G) =P (G) ++ 

5020 

GO TO 1550 

5030 

LET CAP=A(K) 

50+0 

LeT A(K)=0 

5050 

GO TO 1200 

5500 

LET A (K) = (A (K.1 < > + ) 

5510 

RETURN 

5750 

LET E* = “0 U A R E" 

3755 

RETURN 


Listato 

3. 


£ 

REM 

MODULO KAKURxl 

DA INSERIRE NELLE 

BASI 1 E 2 

5000 

REM 

MODULO KAKUA 

3005 

LET 

CAP =A (K) -1 

5010 

LET 

A (K) =0 

5020 

LET 

P CG) =P (G) +1 

3050 

GO TO 1200 

5500 

LET 

P (G) sP (G> +1 

3510 

LET 

A(K)=0 

3530 

RETURN 

5750 

LET 

E*="K A K U A" 

5755 

RETURN 


60 
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Listato 6. 

2 R*H MODULO 

TAMTAM «POCHIXl 
DR INSERIRE NELLE 
BASI 1 E 2 

5000 REM MODULO TAMTHM-APACHI 
5005 LET CRP=R(K.» 

5010 LET O CK) =0 
502B GO TO 1200 
5500 IP G=2 THEN GO TO 5560 
5510 LET P(1) =P (1) 4(R IK> 4fl(13-K) 
RND K < 73 

5520 LET RfK)*(RtK) RND K>6) 

5530 LET R(13-K)=(R(13-K) RND K> 

3) 

5550 GO TO 5750 

5560 LET P (2) =P (2) + (R (K) 4-R C 13-K) 
RND K > 6 > 

5580 LET R(13-K)=(R(13-K) RND K< 

559© LET RtK)=(fì(K) RND K<7) 

5750 LET E $■"TAMTAM-APACMI 
5755 RETURN 


Listati 7-8-9-10. Questi moduli vanno usati solo per il 
listato-base 1, cioè solo se si desidera giocare contro il 
computer anziché contro un altro avversario. Non han¬ 
no bisogno di modifiche per lo ZX81. 


Listato 7. 


3 REM 


MODULO RWELEX2 
OR INSERIRE NEL 
MODULO BRSE/1 


5190 IP C(H> 02 RND C (H) < >3 THEN 
GO TO 624® 

5194- POR T=H TO (12 RND H>6)+(6 
AND H < 7) 

5196 IP CtT) OS RND C(T)<>3 THEN 
GO TO 6210 

5198 LET C(D)*E(0)+C(T) 

5200 NEXT T 

5210 POR T =H-1 TO (H<7>4(& RND H 
>6) STEP -1 

5212 IP C (T) 02 RND CtT) < >3 THEN 
60 TO 624-0 

5214- LET E CO) =E (O) +C (T ) 

5216 NEXT T 

5213 GO TO 624-0 


Listato 8. 

3 REM MODULO OLIARE X2 

DR INSERIRE NEL 
MODULO EASE/1 


3190 IP C(H)«1 THEN GO TO 624.0 
3192 IF C(H)=4 THEN GO TO 6680 


Listato 9. 

3 REM MODULO KAKUA/2 

DR INSERIRE NEL 
MODULO BA5E/1 

ò 190 LET E(0)=E(0)+1 

3192 IP C(H>«1 THEN GO TO 8240 


Listato IO. 

3 REM 


MODULO 

TAMTAM APACHI/2 
DR INSERIRE NEL 
MODULO BASE/1 


519© IP C(H)=1 THEN GO TO 6220 
5192 IP H<? THEN LET ECO)=B 
5194 IF H < 7 THEN GO TO 6240 
5196 LET E(O) =C(H) +C ( 13-H) 

5198 GO TO 6240 


Listato 11. 

1 REM MODULO ZX81X1 
90 SLOU 

1002 PRINT RT 31.2+(7 RND G=l); 


1003 PRINT RT 9,16;G*tl4(G=2)> 
X02© IP CODE MS<29 OR CODE MS>34 
THEN GOTO 1010 
1553 PAUSE 100 
PAUSE 40 

PRINT RT 1,2;P(2);RT 1,9; P( 


.1579 

1585 

U 

32SA 


PRINT RT U. 16, 


a2.13.-PPH.l- TNFR. . DA. -CRNflEl.l.RPE 
3180 REM CANCELLARE I DUE PUNTI 
E PASSARE IL RETURN IN UNR LINER 
SUCCESSIUA. QUESTO PER TUTTE LE 
LINEE SIMILI RLLR 3100. PER ESE 
•IP IO : 

5101 RETURN 
5155 PAUSE 30 

5005 PRINT RT 11,16;"STO PENSANO 

3. . . " 

5700 PRINT RT 11,16 ; "MUOUO 
"; RT 11,24; 13-M 
5705 PAUSE 50 

5020 PRINT RT F,10-(7 RND X=2);" 

"i AT F , 10 - < 7 RND X=2);RCD); ( " 
S ’’ RND SH=D) 

330© PRINT RT 1,2.;" " ; RT 1,9; 

331© PRINT RT 20,2; " COMP"RT 20, 
3; G$ Cl) t TO 3) 4 " . " 

3320 PRINT RT 2,23-LEN E*X2;E* 
3535 PRINT RT 4,16-LEN Et/S;E* 


Listato 12. 

i REM MODULO ZX61/2 

1000 PRINT RT 6+(10 RND G=2> -39; 

1003 PRINT RT 3,21.; G* <14 <G=2) ) 
L020 IF CODE M# <29 OR CODE MS>34 
THEN GOTO 1010 
ÌEE3--PAUSE- --SrSO 
Ì579 PAUSE 30 

2200 REM LINER DR CANCELLARE 

2215 REM LINEA DR CANCELLARE 

2225 REM LINEA DA CANCELLARE 

2500 PRINT AT .8,12 ; "UITTORIE" 

251© PAINT AT ;U1;AT 1 

5,20; G$ (2) ; 02 „ 

5100 REM CANCELLARE I DUE PUNTI 
E PASSARE IL RETURN IN UNA LINEA 
SUCCESSIUA. QUESTO PER TUTTE LE 
LINEE SIMILI. PER ESEMPIO: 

310.1 RETURN 

3020 PRINT AT 84(6 AND X=2),F;" 
8" AT 84(6 AND X=2 > , F; A (D) ; ( r ' * " 


n.,i_. «*t l — is t 

3120 PRINT 

a 1 

5210 PRINT 
5520 PRINT 


$T 4, 
AT 4, 


16-LEN 
4,16-LEN 


•SX2;E| 
:i/2;EÌ 


Listati 11 e 12. Questi due listati contengono le modifi¬ 
che da apportare ai listati 1 e 2per renderli compatibili 
allo ZX81. 

Ogni linea va a sostituire quella corrispondente con 
uguale numero. 

Le linee REM possono essere omesse. 


i 

REM UERSIONE ESTESA DELLA R 

3UTINE 1100-1300 


1100 

FOR K*H+1 TO 12 


1105 

LET fl (K) =R (K) +1 


1110 

60 SUB 8000 


1115 

LET CflP=CRP-l 


1120 

IP A(K)=1 RND NOT CRP 

THEN 

30 TO 1150 


1125 

IF NOT CRP THEN GO TO 

5000 

noe 

NEXT K 


1135 

POR K =1 TO M 


1140 

LET R (K) =fl (K) +1 


1145 

GO SUB 8000 


1150 

LET CRF=CRP-1 


1155 

IP R(K)=>1 RND NOT CRP 

THEN 

30 TO 1160 


1160 

IP NOT CRP THEN GO TO 

5000 

1165 

NEXT K 


1170 

IF CRP > 0 THEN GO TO 1100 


Listato 13. Versione estesa dalla routine 1100-1300 del 


listato-base 1. 
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Funzioni 

ingresso/uscita 

— Parte quarta — 


Continua il nostro 
viaggio dal BASIC 
al Pascal 


a cura della Redazione 

I n un programma Pascal, 
ogni file ha un nome interno 
(cioè all’interno del pro¬ 
gramma) che non deve necessaria¬ 
mente essere lo stesso nome che ha 
nell’“elenco dei file su disco”. Il BA¬ 
SIC, naturalmente, ha un sistema 
simile in quanto quando si apre un 
file lo si associa a un numero come 
nell’istruzione 100 OPEN “DATA- 
FILE” AS 1 o qualcosa di simile. 
Questo associa il nome del file DA- 
TAFILE con il numero logico /. Il 
Pascal per i microcomputer non ha, 
generalmente, previsto l’apertura e 
la chiusura uniformi dei file. Tutta¬ 
via, una volta aperto un file, lo si 
tratta usando il suo nome interno e 
le istruzioni standard READ e WRI- 
TE. 

Per leggere il valore della variabi¬ 
le A da un file che si chiama DATA, 
per esempio, si userebbe l’istruzione 
READ (DATA, A);. Nel Pascal stan¬ 
dard tutti i file che saranno usati in 
un programma devono essere elen¬ 
cati come parametri nella prima fase 
del programma usando i loro nomi 
interni. 

PROGRAM NOME (F ILE 1, FI LE2>; 

Questi sono i nomi interni dei file. 
Inoltre, i nomi dei file FILE I e FILE 
2 devono anche apparire anche in 
un’istruzione che definisca le varia¬ 
bili, e non solo nell’elenco dei para¬ 
metri. I nomi sopracitati FILE I e 
FILE 2 stanno per qualsiasi nome 
descrittivo vogliate dare ai file nel 


programma. Questi nomi dovrebbe¬ 
ro rispecchiare le funzioni dei file. 

FILEIs FILE OF CHAR; 

FILE2:FILE OF INTEGER; 

Si associa un file al suo nome di 
catalogo in due modi, secondo i di¬ 
versi sistemi di Pascal. Alcuni utiliz¬ 
zano l’istruzione che fa cominciare 
la fase di elaborazione. L’istruzione, 
secondo l’ordine in cui vengono dati 
i nomi dei file, li associa ai nomi 
interni dei file nella prima istruzione 
del programma: 

RUN NOME DIRFILEI DIRFILE2 

(questa è l’istruzione che fa elabora¬ 
re il programma) 

PROGRAM NOME < FILEl,FILE2 >; 

(questa è la prima istruzione del pro¬ 
gramma) 

VAR 

FILEI : FILE OF CHAR; 

FILE2:FILE OF INTEGER; 

RESET (FILE 1>; 

RESET (FILE2); 

(questo apre il file per la lettura) 

Altri sistemi permettono che l’as¬ 
sociazione venga fatta nell’istruzio¬ 
ne Pascal nel quale si apre il file. 
Questi richiedono lo stesso una di¬ 
chiarazione nei nomi interni nella 
prima istruzione del programma e le 
dichiarazioni delle variabili come 
sopra. Il Pascal usa la parola RESET 
per aprire un file per lettura e la 
parola REWRITE per aprirlo per la 
scrittura o per l’uscita. Un tipo di 
sistema che ho visto usava: 

RESET (FILEI,'DIRFILEI'); 

RESET apre i file sia per la lettura 
che per l’introduzione. Si fa in que¬ 
sto momento l’associazione fra il 


nome interno e il nome che qui il file 
ha nell’elenco. Notate che per que¬ 
sto sistema, il nome del file nel cata¬ 
logo è una stringa (fra virgolette). 
Questo sistema particolare accetta 
come nome di un file nel catalogo 
una variabile stringa, e si può scrive¬ 
re il programma in modo chechieda 
all’utente il nome che si dovrà usare 
per il file. 


La comunicazione con il terminale 

Il motivo per il quale si è parlato 
subito dei file prima di parlare del¬ 
l’input e dell’output al terminale è 
che questi sono casi particolari di 
file. Infatti INPUT è il nome interno 
di un file di caratteri già dichiarato il 
quale è aperto per READ. 

OUTPUT è il nome interno di un 
file di caratteri già dichiarato il qua¬ 
le è aperto per WRITE. La prima 
istruzione di un programma, come 
negli esempi qui sopra, se sono ri¬ 
chieste l’introduzione e l’uscita al 
terminale, sarebbe: 

PROGRAM NOME <INPUT.OUTPUT,FILEI f FILE2 >\ 

Questo è un confronto fra il BA¬ 
SIC e il Pascal per quanto riguarda 
la lettura del valore di una variabile 
A da un file. Si assume che il file sia 
stato aperto bene. 

100 input #1,a READ(FILE1,A) 

Alcuni sistemi del BASIC adope¬ 
rano READ anziché INPUT. Ora, 
paragoniamo le istruzioni per legge¬ 
re il valore di una variabile A dal 
terminale. 

100 input a READ<INPUT,A) 

Esatto, si può usare INPUT esat¬ 
tamente come FILE 1 per specificare 
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una fonte d’introduzione. Tuttavia, 
il Pascal riconosce che INPUT e 
OUTPUT sono probabilmente i file 
più usati e le parole INPUT e OUT¬ 
PUT sono sottointese. Cioè, si pos¬ 
sono omettere, e READ (A); leggerà 
il valore di A dal terminale. 

Se un nome di file non è dato in 
un’istruzione READ , VINPUT è sot¬ 
tinteso. Lo stesso vale per YOUT- 
PUT in un’istruzione WRITE. Ab¬ 
biamo dovuto usare dichiarazioni 
d’introduzione o di uscita in molti 
degli esempi precedenti e allora ave¬ 
te probabilmente capito in parte co¬ 
me funzionano. Gli esempi seguenti 
dimostrano come differiscono dalle 
istruzioni del BASIC: 

tOO print WRITELN; 

lló print WRITEC CIAU >; 

120 print "ciao" . WRITELN("CIAO’); 

130 print "vr»l ore?=" ;a WRITELN ( VALORE= ,A>; 

Non confondete l’uso speciale del 
punto e virgola del BASIC che im¬ 
pedisce il return dopo un’istruzione 
PRINT, e la funzione di “fine di 
istruzione” del Pascal. Il WRITE nel 
Pascal inibisce il return, e il WR1- 
TELN lo contiene. Parliamo della 
differenza fra READ e READLN. 

Supponiamo di avere un file di 
caratteri che si chiama FILE aperto 
per la lettura. Il file consiste in righe 
di dati che sono i valori delle varia¬ 
bili A, B, C, D, X. Se ora scriviamo 
l’istruzione READ {FILE, A, B); rice¬ 
viamo i primi due valori della linea 
di dati nelle variabili A e B. Se usia¬ 
mo di nuovo READ (FILE, A, B); 
non va tutto bene, perché ci sono tre 
valori rimasti nella linea di dati. Ri¬ 
ceviamo invece i valori di C e D. Se 
vogliamo leggere, per esempio, solo 
i primi due valori su ogni riga di 
dati, possiamo usare ripetutamente 
la READLN (FILE, A, B);. L’azione 
della READLN è di trovare l’inizio 
della prossima riga del file e comin¬ 
ciare lì la lettura. Il BASIC avanza 
automaticamente all’inizio della 
prossima riga quando c’è un’istru¬ 
zione READ o /WPLTindipendente- 
mente dal fatto che tutte le variabili 
sulla riga siano state lette o no. 


Il Pascal vi dà una scelta. RE¬ 
ADLN e WRITELN sono valide solo 
per un file di CHAR. 

Solo alla fine di rivedere questa 
parte, che nei linguaggi generalmen¬ 
te crea confusione (perché ci sono 
grosse differenze fra i tipi di sistemi), 
ripetiamo che, nel BASIC, i file sono 
associati a “numeri logici di file”, e 
nel Pascal a nomi di file “interni” (o, 
se volete, “nomi logici di file”). 

Avete notato che il Pascal permet¬ 
te l’uso di parole che possono dare 
un significato al vostro programma, 
mentre il BASIC usa singole lettere e 
numeri? Il Pascal standard, a propo¬ 
sito, non ha un’istruzione CLOSE 
(come ha il BASIC) per chiudere i 
file alla fine dell’uso. 

Tutti i file si chiudono alla fine di 
un programma. Naturalmente i file 
si possono chiudere alla scrittura ed 
essere riaperti per la lettura usando 
la RESET (NOME DI FILE). 

La riapertura di un file per la 
scrittura tramite l’uso di REWRITE 
(NOME DI FILE) distrugge il conte¬ 
nuto di qualunque file esistente sot¬ 
to lo stesso nome. Se si riapre un file 
con REWRITE e non ci si scrive nul¬ 
la, svanisce quando è chiuso alla fine 
del programma, e quindi il risultato 
è lo stesso della cancellatura. Alcuni 
sistemi Pascal hanno un’istruzione 
CLOSE (NOME DI FILE). Potete 
aspettarvi di trovare che un sistema 
particolare di Pascal differisca ab¬ 
bastanza dai sistemi descritti sopra, 
ma potete essere certi che il concetto 
di nome interno e nome di catalogo 
viene usato. 


Il formato deH’uscita 

Il BASIC ha pochi mezzi per spe¬ 
cificare il numero di cifre decimali 
da stampare nelle uscite numeriche. 
Alcuni sistemi hanno qualche tipo 
d’istruzione DIGITS come per 
esempio DIGITS = 3 per fissare 3 
posti dopo il punto all’uscita. Le 
versioni più ricche hanno un’istru¬ 
zione chiamata PRINT USING. 


Questa permette di specificare un 
formato nella forma: 

IO f t»###" 

20 print ufsinq f , ta , c 

Questo specificherebbe la forma 
in cui il valore delle variabili sarà 
stampato. Le virgole che separano le 
variabili richiedono la stampa in 
campi di 16 colonne ciascuno. La 
stampa che usa il formato “giustifi¬ 
ca” l’uscita. Notate che i valori delle 
variabili possono cadere nell’inter¬ 
vallo fra - 9.9999 e 99.9999. Cioè, il 
segno meno utilizza uno dei “posti” 
prenotati dalla definizione del for¬ 
mato. Se avete bisogno di numeri 
fino a — 99, dovete fissare tre posti 
prima del punto. Se una variabile ha 
un valore che non coincide con il 
formato, si causerà un errore. Vari 
tipi di BASIC trattano questi errori 
in modo diversi. Alcuni stampano 
★ ★★★★★★. 

Altri ricadono nella notazione 
scientifica; altri stampano il numero 
lo stesso. Quest’ultimo può uscire 
dal campo di 16 caratteri, causando 

10 spostamento di 16 spazi da parte 
di tutte le colonne di uscita che se¬ 
guono. 

Anche il Pascal ha un modo per 
specificare il formato di uscita. 

Un’istruzione che produrrebbe il 
formato di cui sopra è WRITE (A : 7 : 
4);. Questa istruzione dice di stam¬ 
pare la variabile in un campo di 7 
colonne (compresi il punto e il segno 
meno se è negativa) con 4 cifre dopo 

11 punto decimale, e ciò se A è una 
variabile reale. Le variabili intere 
possono avere un formato in cui si 
usa un’unico numero per specificare 
la larghezza del campo. Notate che il 
campo può essere più largo del nu¬ 
mero di cifre da stampare. I numeri 
sono sempre “giustificati” nei cam¬ 
pi. Ciò significa che i punti decimali 
si allineano verticalmente se si usa 
un formato costante. Se usate le spe¬ 
cificazioni del campo, potete fare 
tutto ciò che si può fare nel BASIC 
con PRINT USING, SPC e TAB. Nel 
caso del formato, il Pascal usa un 
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La Potenza dei 
Microprocessori 


Questi due libri sono stati ideati come testi autonomi e completi per imparare la 
programmazione in linguaggio Assembler, usando lo Z80 o il 6502 (i microprocessori forse 
più diffusi). 

Scorrevoli da leggere, non richiedono alcuna conoscenza di base ne di elettronica generale 
né di programmazione. 

Sono stati progettati, infatti, sotto forma di corso che, sistematicamente, passo dopo passo, 
porta il lettore dai concetti di base fino alle tecniche di programmazione avanzate, al fine di 
permettergli la realizzazione di programmi sempre più complessi. 

L’esposizione progressiva, rigorosamente strutturata, comporta la risoluzione obbligatoria 
di esercizi attentamente graduati al fine di verificare che si sia veramente capito quanto 
presentato? Ben si prestano, perciò, a chi si avvicina per la prima volta ai microprocessori e 
ne vuole conoscere e capire gli aspetti essenziali di programmazione. 

Per tutti coloro che già hanno 
programmato, invece, sarà una 
vera e propria miniera di 
informazioni sulle caratteristiche 
specifiche del microprocessore 
d'interesse, evidenziandone nel 
contempo, vantaggi e svantaggi. 
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Funzioni 
di ingresso/uscita 


metodo che è più semplice di quello 
del BASIC (e anche di quello del 
Fortran) a meno che non sia richie¬ 
sta soltanto la forma più semplice di 
formato. Le specificazioni del cam¬ 
po funzionano, fra l’altro, anche per 
le stringhe, con la stringa giustifica¬ 
ta nel campo. 

Cioè, WR1TE (“CIAO” : 40); fa¬ 
rebbe stampare la O di CIAO nella 
colonna 40. Se a una stringa non 
viene data una specificazione di for- 
mato, come nella WRITE 
(“CIAO”);, la stringa è stampata 
senza spazi che la precedano o se¬ 
guano, cioè li dove il cursore (stam¬ 
pante) si trova quando si incontra 
l’istruzione WRITE. Notate ancora 
una volta l’uniformità e la regolarità 
del modo in cui funziona il Pascal. 


ÌOO print. t*b<10) WRITELN (N: IV: S) ; 

110 pnnt usi nrr*#**. NttttNtt" ,n 
120print «pc ( IO) ; WR ITÉLN ( Gl : 16: : ) ; 

150 print uminq "##. ,q 


I risultati delle istruzioni date so¬ 
pra sono identici per il BASIC e per 
il Pascal. Notate che, alla linea 120, 
SPC (10) potrebbe essere sostituto 
da TAB (29). TAB (N) nel BASIC 
sposta sempre la prossima posizione 
di stampa alla colonna N contando 
dalla prima posizione di stampa alla 
sinistra della pagina. 

SPC (N) sposta la posizione /di 
stampa di numero N colonne dalla 
posizione in cui la testina stampante 
si trova al momento. Il formato del 
Pascal si organizza il lavoro più co¬ 
me SPC che come TAB , in quanto 
ogni campo ha inizio laddove l’ulti¬ 
mo è finito. Passate un po’ di tempo 
per provare i vari formati di uscita di 
numeri nel vostro sistema di Pascal. 
Troverete che se un formato non è 
specificato per una variabile reale, il 
Pascal usa la notazione scientifica 
all’uscita. ■ 
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Alla scoperta del VIC 20 
architettura e tecniche 
di programmazione 

Un libro atteso da quanti - e 
sono moltissimi-hanno 
acquistato uno dei Personal 
Computer del giorno: 

VIC 20 Commodore. 

Naturale completamento del 
precedente "Impariamo a 
programmare in BASIC con 
il VIC/CBM”, questo 
manuale può soddisfare 
diverse esigenze. 

Ci sono capitoli che trattano 

file su disco e cassetta, la 
stampante VIC 1515, alcuni 
cartridge come VIC STAT, 

VIC GRAF, SUPER 
EXPANDER. Un'intera parte 
è dedicata alle porte I/O, al 
chip d’interfaccia video, al 
linguaggio macchina del 
calcolatore. Un'ultima 
importante annotazione:tutti 
I programmi che compaiono 
nei testo sono stati provati 
sul calcolatore e sono 
disponibili su cassetta 
e floppy disk. 

300 pagine 
Lire 22.000 


Il manuale base 
per l’uso del VIC 20 


ALLA SCOPERTA 
DEL VKgO 
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A.I.V.A.: SIETE UN VIDEOATLETA? 
COMPUTER PLAY/ GAMES A GIUDIZIO? 
IN PROVA IO NOVITÀ IO 
COME NASCE UN VIDEOGIOCO 


COME NASCE 
UN VIDEOGIOCO 


SIETE 
UN VIDEOATLETA? 


10 NOVITÀ’ 
IN PROVA 


COMPUTER PLAY- 
GAMES A GIUDIZIO? 
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C alcoli relativi 
distribuzione normale 


Un programma 
di statistica 
per ZX Spectrum 
16/48 Kbyte 

di Tullio Policastro 

I l modello probabilistico più 
largamente considerato in 
statistica è senza dubbio 
quello relativo alla cosiddetta distri¬ 
buzione normale, nota anche come 
distribuzione di GA USS. La sua fun¬ 
zione di densità, che stabilisce, per 
un dato valore osservato o osserva¬ 
bile x, la relativa probabilità di veri¬ 
ficarsi ha la forma (relativamente) 
semplice: 

p(x) = (1/6 \J 2 n) • exp(-(x — p) 2 /2 a 2 ) 
in cui: 

p = valore medio (atteso) della dis¬ 
tribuzione; 

a — scarto quadratico medio = radi¬ 
ce quadrata della varianza a 2 , 
exp = consueta funzione esponen¬ 
ziale a base e. 

Più importante ai fini pratici è pe¬ 
rò la funzione cumulativa di probabi¬ 
lità o funzione di ripartizione che, per 
un dato valore Xodà le probabilità di 
osservare un valore x inferiore o pari 
ad Xa, ed è data dall’integrale defini¬ 
to: x “/' 

po = p(xo) = / p(x) dx 

Joo 

Inversamente, dato il valore della 
funzione di ripartizione p», può ri¬ 
sultare utile ricavare il valore di x». 
Applicazioni di questo genere, oltre 
che per vari test statistici, sono pre- 
vistesempio quando, avendo suppo¬ 
sto che i dati che si considerano se¬ 
guano la distribuzione normale con 
media p e scarto tipo a, si desidera 
sapere che frazione dell’intera popo¬ 
lazione cade al di sotto, o al di sopra, 
di un valore assegnato: un caso con¬ 
creto comune nella pratica è quando 



Figura 1. Il listato BASIC. 
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Calcoli relativi 
alla distribuzione 
normale 


si vuole determinare, di una certa 
produzione che segue per una data 
caratteristica la distribuzione nor¬ 
male, la percentuale di prodotto che 
risulta fuori norma rispetto ad un 
prefissato valore di specifica. 

Mentre il calcolo della funzione di 
densità è possibile anche con le co¬ 
muni calcolatrici tascabili che dis¬ 
pongano della funzione e\ per la 
funzione di ripartizione p(x), dato 
che il corrispondente integrale non è 
calcolabile per via analitica, la de¬ 
terminazione dei valori risulta al¬ 
quanto più difficile, ed infatti comu¬ 
nemente si ricorre a delle tavole 
pronte riferite alla distribuzione nor¬ 
male standardizzata, che ha media 
p = 0 e scarto tipo a = 1. 

Nel caso della disponibilità di un 
calcolatore (personal computer), 
però, la cosa non presenta particola¬ 
ri difficoltà. Solitamente i testi pre¬ 
sentano al riguardo delle formule di 
calcolo più o meno approssimate, 
che ricorrono a funzioni razionali 
(polinomiali o simili) di cui occorre 
introdurre i numerosi coefficienti 
costanti, con molti decimali. 

Inoltre il calcolo è reso ancora più 
difficile nel caso in cui si voglia de¬ 
terminare la Xodato il relativo valore 


di po. 

Sono tuttavia note alcune formu¬ 
le esatte, corrispondenti a sviluppi 
in serie o in frazione continua, per il 
calcolo di p(x). Esse sono date per la 
distribuzione normale standardiz¬ 
zata, a cui comunque tutte le distri¬ 
buzioni normali sono riconducibili 
con la semplice trasformazione di 
variabile: 


x = ^ii 


o 

Le due formule sono: _ 

P(x) = 1 - p(x) • 

1_ 

X+J_ 

x+2__ 

x+3 

x+4_ 

x+5_ 

x+ . . 

(sviluppo in frazione continua) 
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Calcoli relativi 
alla distribuzione 
normale 

p(x)=- 0,5 + —-(1-—— + 
sfTH 1-2-3 



2-4-5 6-8-7 


k! • 2 •(2k + 1) 

Con esse è possibile ottenere l’ap¬ 
prossimazione che si desidera pur¬ 
ché si spinga abbastanza avanti il 
calcolo dei vari termini. Come è in¬ 
tuibile data la forma, delle due la 
prima converge più rapidamente 
quando x è (relativamente) grande, e 
la seconda quando x è piccolo. En¬ 
trambe si prestano facilmente al cal¬ 
colo iterativo dei vari termini: per la 
prima, posto p 0 = 0, q 0 = 1, pi = 1, 
q i = x, si applicano le formule ricor¬ 
renti: 

p k = x • p k -. + (k - 2) • p k -2; 
q k = x • qt -1 + (k - 2) • q k -2; 
ad ogni passo (k) il valore dell’e¬ 
spressione fra parentesi (parte fra¬ 
zione continua vera e propria) vale 
pk/qk. Per la seconda formula, posto 
pu = 1, ogni altro termine della serie 
si ricava dal precedente con la for¬ 
mula ricorrente: 

p k = — p k -1 • x 2 /2 • (k — 1) 
che va poi sommato (o sottratto) 
previa divisione per (2k + 1). 

Il programma utilizzato si può 
brevemente descrivere come segue: 
1 Definizione della funzione che cal¬ 
cola p(x); creazione d’una stringa di 
16 spazi per le cancellature; rinvio al 
programma principale. 

10-18 Subroutine per il calcolo di 
P(x) quando x è maggiore di 1.8 (con 
la formula a frazione continua). 
20-26 Subroutine di calcolo di p(x) 
quando x ^ 1.8 (sviluppo in serie). 
100-140 Presentazione delle selezio¬ 
ni possibili: 

a) distribuzione normale standar¬ 
dizzata “N (0, 1)” o distribuzione 
normale con data media m e scarto 
tipo j (“N (m, s)”); 

b) calcolo di p dato x, o inversamen¬ 
te di x dato p. 



Seguito figura 1. 

1 

4-S0 FOR b=i TD 30: LET Z»FN Z (X 

! 

*90 IF X<=1.© THEN GO SUB 2© 

S©0 IF X >1.8 THEN GO SUB 10 
510 LET xp «=X ; LET X =X - {P-P0J (Z 
I* (P-P0J S2) : IF R BS Ixp-K) <1E-? T 
iEN GO TO 530 
52© NEXT b 

530 LET X=f*X: IF THEN L 

=T X +X #& 

5*0 PRINT RT 10,®;"UalOfft di X 
: *’ , X 

550 BEEP .05,1©: INPUT "fHtfO C 
jlcolo? (&sn> ";a*; IF a$<>"s" 

3ND a$ 0 "n" THEN GO TO 550 
550 IF a$="n" THEN GO TO 1000 
570 INPUT "Stessa distribuzione 
? Csxn) ";a$: IF a$<>“n” AND a*< 
>"S" THEN BEEP .05,5: GO TO 570 
580 IF a * = "S" THEN CLS : GO TO 
120 

590 CLS : LET GO TO *0© 


che, dalla formula di risoluzione 
delle equazioni col metodo di NEW¬ 
TON. 

530-540 Stampa del valore di x, nelle 
unità appropriate al tipo di distribu¬ 
zione. 

550-590 Richiesta di altri calcoli di x 
per la stessa o altra distribuzione. 

Nel programma sono previsti nu¬ 
merosi controlli dei dati di input, 
allo scopo di evitare errori. Chi si 
sentisse abbastanza sicuro dell’im¬ 
postazione dei propri dati di input, o 
trovasse più veloce ripartire da capo 
con RUN, potrà semplificare note¬ 
volmente il programma eliminando 
o modificando le istruzioni dove 
questi controlli sono eseguiti (115, 
125,175-180,220-230,270,280,290, 
440, 450, 550-560-570-580). 

Qualora interessi applicare il pro¬ 
gramma al calcolo della frazione di 
produzione fuori norma rispetto ad 
un limite di specifica, basterà ricer¬ 
care il valore di P corrispondente ad 
un valore di x eguale a questo limite, 
e considerare il valore di P o di 1 — P 
a seconda della natura del limite 
stesso (limite inferiore o superiore). 


Le varie selezioni sono caratteriz¬ 
zate dall’assegnazione di determina¬ 
ti valori ad alcuni “flag” stringa. 
150-190 Input dei valori della me¬ 
dia, scarto tipo ed x per il caso di 
distribuzione normale qualsiasi e 
calcolo di p(x). 

200-250 Calcolo di p(x) per un dato 
valore di x o di X = (x — m)/s. 
260-320 Stampa del valore calcolato 
di p(x), e richiesta di altro calcolo di 
p(x) per la stessa o altra distribuzio¬ 
ne. 

400-460 Input dei valori della me¬ 
dia, scarto tipo e p.per il calcolo del 
valore di x dato p. 

470 Calcolo di un primo valore di x a 
grossolana approssimazione: 

x - x/i ■ LN -™- 
8 1 -PO 

480-520 Calcolo iterativo conver¬ 
gente al valore cercato di x, secondo 
lo schema: 

— calcolo di P(x) dal precedente va¬ 
lore di x, con le subroutine 10 o 20 

— calcolo di un nuovo valore più 
approssimato di x con la formula: 

P(x) - P„ 

X = X —-—- 

P(x) + (P(X) - Po)/2 
che è derivata, con leggere modifi- 
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I boss del petrolio 

— Parte prima — 


Un programma per 
VIC 20 + joystick 


di Enrico Comini 


I mmaginatevi di essere uno 
Ewing come J.R. o come 
Bobby se il primo non vi ri¬ 
sultasse simpatico, di essere in defi¬ 
nitiva “Boss del petrolio”. Estrarre 
il petrolio non è però semplice, biso¬ 
gna riuscire a superare molti ostaco¬ 
li per trarne profitto. Vi sono rocce 
formate da minerali particolarmen¬ 
te duri che rovinano la trivella ed 
allora è necessario passare a mezzi 
più energici, bisogna impiegare 
qualche candelotto di dinamite, le 
cui scorte non sono però illimitate. 
Nelle cavità vuote da cui l’oro nero è 
già stato estratto, sussiste il pericolo 
di infiltramento di gas naturali che 
sono altamente esplosivi, per cui 
può capitare che mentre la trivella le 
attraversa si crei una deflagrazione 
dannosa per l'impianto. Esistono 
inoltre dei piccoli diavoletti che han¬ 
no scelto il petrolio come loro dimo¬ 
ra e questa simpatica famiglia di in¬ 
dividui non vede di buon occhio le 
trivelle che succhiano il loro elemen¬ 
to vitale, per cui ogni qualvolta si 
tenta di pompare il petrolio nel qua¬ 
le vive un diavoletto costui mette 
fuori uso il pozzo. Comunque il vero 
magnate del petrolio è un “duro” e 
non si lascia intimorire; procede si¬ 
curo sulla sua strada per fare sempre 
più grande il suo gruzzolo di sonanti 
dollaroni. 



Una videata d’esempio di gioco. 


Caricamento 

Il programma gira sul VIC non 
espanso; è formato da due program¬ 
mi separati da lanciarsi consecutiva- 
mente. Il primo, che carica in me¬ 
moria i simboli grafici ed alcune 
routine in linguaggio macchina per 
l’utilizzo del joystick, contiene an¬ 
che le istruzioni per giocare. Una 
volta che questo primo programma 
è stato lanciato appaiono sul video 
le istruzioni e viene automaticamen¬ 
te caricato in memoria il secondo 
programma che costituisce il gioco 
vero e proprio. 

Alla fine del caricamento del se¬ 
condo programma appare la scritta 
“PREMERE STOP SUL TAPE” ed 
il programma attende fino a che 
questa operazione non è stata com¬ 
piuta. 

Livelli di difficoltà 

Lo schermo che appare dopo che 
si è premuto lo “STOP” mostra il 
massimo punteggio per ognuno de¬ 
gli otto livelli di difficoltà. Il pro¬ 
gramma ritorna a questo schermo 


ogni volta che il gioco ha termine. 
Appena terminato il gioco il punteg¬ 
gio ed il livello di difficoltà appaio¬ 
no nella parte superiore del video. In 
fondo a questo quadro appare la 
scritta “DIFF. LIVEL 12345678” 
ed il livello di difficoltà va scelto 
muovendo il joystick a destra e pre¬ 
mendo il bottone di fuoco quando il 
livello al quale si è interessati sta 
lampeggiando. Il livello 1 è il più 
semplice, per bambini per così dire. 
Per i giocatori più anziani (in fatto 
di computer game s’intende) si con¬ 
siglia di iniziare a giocare dal livello 
2. Più alto è il livello di difficoltà e 
più difficile diventa il gioco; le varia¬ 
zioni che si hanno per ogni livello 
sono quelle mostrate dal seguente 
specchietto: 


LIVELLO 

DINAMITE 

ROCCE 
DI IR E 

ROCC E 
INVISIBILI 

1 

3 

20 

NO 

2 

2 

20 

NO 

3 

3 

30 

NO 

4 

2 

30 

NO 

5 

4 

20 

SI 

6 

3 

20 

SI 

7 

4 

30 

SI 

8 

3 

30 

SI 


Come si gioca 

Dopo che si è scelto il livello ap¬ 
pare sul video il terreno petrolifero. 
Questo sarà differente per ogni gio¬ 
co, è impossibile vedere per due vol¬ 
te lo stesso schermo. Ad ogni gioco 
si hanno a disposizione 5 torri per 
l’estrazione del petrolio ognuna del¬ 
le quali ha a disposizione un condot¬ 
to con trivella formato da 20 pezzi 
ed un numero di candelotti di dina¬ 
mite che dipende dal livello scelto. 
Nella parte superiore sinistra sono 
visibili le torri che ancora si hanno a 
































disposizione ed in quella destra il 
punteggio. 

Nel mezzo vi sono i candelotti di 
dinamite ancora da utilizzare e sotto 
questi, i tubi di estensione per la 
trivella. 

Appena si inizia a perforare si ve¬ 
dono queste estensioni diminuire e 
così le si vedranno aumentare quan¬ 
do la trivella verrà ritirata. La parte 
bassa dello schermo è il terreno di 
gioco, i quadrati gialli sono rocce, 
quelli neri petrolio e quelli irregolari 
rossi rocce dure. Muovendo il joy¬ 
stick a destra e a sinistra la torre per 
l’estrazione si sposta sopra il campo 
fino al punto in cui si decide di per¬ 
forare. Per perforare è necessario 
premere il joystick verso il basso. 
Per ritirare la trivella bisogna porta¬ 
re la leva del joystick verso l’alto. 

Mentre la trivella è nel terreno 
non è possibile spostare il pozzo a 
destra e a sinistra; non si possono 
inoltre superare con la trivella le 
rocce dure e i diavoletti. Cercando 
di continuare a perforare dove non è 
possibile, l’unica cosa che si ottiene 
è quella di spezzare la trivella e per¬ 
dere così alcuni dei tubi di prolunga 
che sono disponibili (la diminuzione 
delle estensioni è visibile nella parte 
superiore dello schermo). 

Questo fatto diventa molto im¬ 
portante se si gioca a livelli di diffi¬ 
coltà superiori al quarto, jdove le 
rocce dure sono invisibili ed allora è 
molto facile rompere la trivella men¬ 
tre si cerca di raggiungere un giaci¬ 
mento. Bisogna anche andare molto 
cauti nel passare con la trivella at¬ 
traverso gli spazi vuoti dai quali il 
petrolio è già stato pompato perché, 
in questi spazi, è possibile che si in¬ 
filtri gas naturale che essendo molto 
esplosivo può anche deflagrare al 
passaggio della trivella. Il bottone 
del fuoco si può utilizzare per fare 
tre cose: se la torre non ha esteso la 


1-4 Inizializzazioni. 

5-23 Schermo massimi punteggi e sele¬ 
zione difficoltà. 

24-25 Nuova torre per l’estrazione del 
petrolio. 

26-29 Trivella. 

30-33 Ciclo primario. 

34-39 Ciclo secondario. 

40-45 Arretramento trivella. 

46-60 Aspirazione. 

61-68 Parte superiore schermo. 

69-77 Inserimento dinamite. 

78 Gas naturale. 

79-81 Esplosione condotto e pozzo. 

82 Suono di campanella. 

83-84 Suono esplosione. 

85-86 Diavoletti. 

87-92 Formazione schermo. 

93 Disegno. 

99 Suono della perforazione. 


Tabella 1. Lista delle principali routi¬ 
ne de! programma 2. 

trivella premendo il pulsante si ha a 
disposizione una nuova torre con 
tutte le estensioni e tutti i candelotti 
di dinamite. Se la trivella è dentro ad 
un giacimento di petrolio o in uno 
spazio vuoto premendo il pulsante si 
pompa all’esterno il contenuto della 
cavità (petrolio o aria), mentre inve¬ 
ce se la trivella si trova al di sopra di 
una roccia (non necessariamente 
dura) si manda nel terreno un can¬ 
delotto di dinamite. 

Se al momento di sganciare la di¬ 
namite ci si trova al di sopra di uno 
spazio vuoto o di un giacimento di 
petrolio la dinamite esce dalla trivel¬ 
la e procede attraverso lo spazio 
vuoto o il petrolio finché non incon¬ 
tra una roccia o un diavoletto. 


Estrazione del petrolio 

Quando si decide di pompare, tut¬ 
to il petrolio contenuto negli spazi 
che stanno ai lati e sopra la trivella, 


verrà estratto all’esterno. In altre 
parole tutti i quadrati di petrolio 
connessi a quello del quale si sta 
pompando, saranno pompati all’e¬ 
sterno solo se essi giacciono diretta- 
mente sopra o ai lati di questo. Ogni 
quadrato di petrolio che sta al di 
sotto di quello nel quale si trova la 
trivella non verrà pompato. Se, 
mentre il petrolio viene aspirato, si 
scopre un diavoletto all’interno di 
questo, allora il pozzo sarà inevita¬ 
bilmente perso. Se si cerca di pom¬ 
pare in un giacimento che è connes¬ 
so (come spiegato sopra) con uno 
spazio contenente un diavoletto già 
scoperto si causa la distruzione del 
pozzo. Alla fine di un’estrazione il 
punteggio viene incrementato. Ogni 
100.000 punti raggiunti si ha un poz¬ 
zo extra. Si ottiene pure un pozzo 
extra nel caso in cui dal campo è 
stato estratto tutto il petrolio. 

Quando si verifica questa situa¬ 
zione compare un nuovo campo di¬ 
verso dal precedente. 


Come si procede per caricare il 
programma 

La prima cosa da fare è battere il 
primo programma, salvarlo sul na¬ 
stro e fare un VERIFY. Quindi biso¬ 
gna premere STOP sul registratore 
senza però riavvolgere il nastro, da¬ 
re il NEW e battere il secondo pro¬ 
gramma, salvare anche questo sul 
nastro, tornare dove tale program¬ 
ma inizia e fare un VERIFY. Se tut¬ 
to è a posto riavvolgere il nastro 
completamente, dare un NEW e poi 
un LOAD (attenzione: NON preme¬ 
re STOP dopo che il primo pro¬ 
gramma è stato caricato). 

Ora si può dare il RUN ed il primo 
programma parte caricando e lan¬ 
ciando automaticamente il secondo 
programma. 
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Listato 1 . Il programma 1. 


20 PRINT"3“ :PRINT" ISTRIJZIOHI" :P 

RI NT ; PRI NT " s*JOISTICK3 : " :PR I NT " DX & SX= 
MUOVE POZZO" 

30 PRINT" BASSO-TEI VELI-PIMENTO " SPRINT" 
RL.TO=AERE TE AMENTO" 

40 PR I NT : PR I NT " ^BOTTONE FIJQC03 : " : PR I NT 
"AL. SUOLO=NUOVO POZZO; " SPRINT" IN PETROL 
IO 0 SPAZI0=P0MPA" 

60 PR I NT : PR I NT " ATTENZ IONE 5*ALU3AS3 
NEGLI JJBPAZI VUOTI".. "SE AIIHPIAVCLT. N 
EL. «PETROLIO" 

70 PRINT:PRINT"SOTTENDI LE PROSSIME IS 
TRUZIONI " 

80 P0KE52,28 :P0KE56,28 :P0KE45,248 :POKE 
46.26 : CLP. 

90 F0RA=716ST07375sREADB:POKER,BsHEXT 
100 0ATA2, 133..164,73,74..52,20,8,64,81, 
37,146,82,44,40,16,24,24,36,60,90,102,2 
31,153 

110 DRTR20,42,42,20,62,73,20,20,136,34 
,136,34,136,34,136,34,148,22,148,34,136 
,34,136,34 

120 DATA143,22,148,22,148,34,136,34,14 
8,22,148,22,148,22,148,22,136,62,188,62 
-,183,62,188,22 

130 DATA 170 , 170,170, 170 , 178 , 178, 170 , 17 
0,158,150,150,170,178,170,178,170,158,1 
50,158,150,150 

140 DATA 170,170,170,150,158,150,158,15 
0,158,150,158,150,190,190,198,190,198,1 
98,158 

150 DATA0,8,0,0,0,0,0,0,28,20,20,8,8,0. 
,0,0,28,28,20,20,28,8,8,0,28,20,20,28,2 
8,20,20,20 

160 DATA20,60,60,68,60,68,68,28,8,60,6 
0,60,60,60,60,0,0,0,0,255,255,0,0,0 
170 DRTR218,118,181,153,110,93,197,65, 
65,32,158,85,121,181,150,173,2,106,129, 
20,64,162,129 

180 OR TR2,24,60,62,126,124,62,28,8,136 
,34,136,34,136,34,136,34 
190 FORfl=7424TO7640:POKER,PEEKC25600+R 
> sNEXT 

208 F0RA=7464T07529:READB:POKER,B sNEXT 
218 DRTA169,128,141,19,145,169,8,133,1 
,133,2,169,127,141,34,145,162,119,236,3 
2,145 

220 DATA208,4,169,1,133,1,169,255,141, 
34,145,162,11S,236,17,145,283,4,169,22, 
133,1 

230 DATA162,110,236,17,145,208,4,169,1 
,133,2,162,122,236,17,145,208,4,169,22, 
133,2,96 
240 LORD 

1500 .0.0.0.0,0.0.0.20.20.20.0.0,0.00 
28,20,20,20,0,0,0,20,20,28,28,20,28,20 



Seguilo programma 1. 

Lista si rubo l i iira.t i c i 

28 : 1 ZI = SHIFT 

HOME C CHR$<147 >1 

1 

= CTRL 5 

1 CHE* <156:' 1 

1 

i3 = CTRL 7 

CCHE*<31 y 1 

48 : 1 

= CTRL 5 

C CHR* <156 >1 

1 

3 = CTRL 7 

ICHR* < 31 :■ I 

68 : 1 

= CTRL 5 

C CHR* <156:'] 

1 

Il = CRSR*- 

C CHR* < 29 >I 

1 

3 = CTRL 7 

C CHR* < 31>I 

1 

a = CTRL 8 

C CHR* < 153.' 1 

1 

3 = CTRL 7 

CCHR*< 31> I 

1 

Iti = CRSR-!- 

CCHR*<29>I 

1 

= CTRL 5 

CCHR*<156>1 

1 

■ = CTRL 1 

ICHR*-: 14 4 > ] 

78 : 1 

3 = CTRL 7 

[CHR*<31>I 


Listato 2. // programma 2. 


? PRIMI SPRINT" PREMI STOP SUL TAPE" 

3 IF P E E K < 3713 7 > < 100 T HE H 3 

4 POKE36379,30sP0KE36878,47:DItìAK<21> s 
W=7768 

5 IF2>B:<< T >TI IENE'; <T > =Z 

6 P0KE36369,240 : PR I NT " □" CHR* < 28 >" " T 

. " * " Z* 100 ■' S" 

7 PRINTSPRINT" LIVELLO","HIGH SCORE" 

0 FORA-1T08 : PR I NT ; PR I NT.A , " *"BK < A > 

* 100 : NEXT : PR I NT : PR I NT " DIFF. !.. I VE!,...? 1234 
567851" :T=1 

9 SVS7464:PQKE38352+T,6 :T-T+PEEK<1 ).PE 

EK<2> : IFT< 10RO8THENT = 1 

10 P0KE3S852+T,7 :L=3:1FT/2=INT <T/2>THE 
NL~2 

11 S=20:IFT=3ORT=4ORT>6THENS=30 

12 N—24 :IFT>4THENN-25:L=L+1 

13 IFPEEK<37137 >>180THEH9 

14 P0KE36869,255 

23 PRINT "3" :M=5:Z=0:K=0:G0SUB87 

24 POKEW+X ,14: X= 10 : M=M— 1 : P=28 : V--L : OOSU 
B82:IFMC0THEN5 

2 5 G 0 8 U B 61 s G 0 T 0 3 4 

26 A=<<R*22)+W+X>:C=PEEK<A >:P=P-1 :GOSU 
B67 

27 IFC=N0RC=30RA>81B5THENF0RA=1T03:GOS 
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Seguito programma 2. 

IJB93 : NEXT :G0T03O 
23 IFRND<1><.06RNDC=14THEN78 

29 FORB=1T03 : POKER, C+B : G0SUB99 : NEXT : R= 
R+l 

30 SVS7464:IFPEEK(1>=22RNDP>0THEN26 

31 IFPEEK<2 >—22THEH40 

32 IFPEEK C37137>C100THEN46 

33 00T030 

34 SVS74S4 : R--PEEK < 1 > : B=PEEK <2 > : I Ffl=22T 
HENR=1s G0T026 

35 IFB=22THEN34 

36 IFPEEKC37137 > <10OTHEH24 

37 IFfl>00RB>0THENP0KEW+X.14:X=X+fl-B: IF 
X>21THENX=21 

38 IFX<0THEMX=0 

39 POKEW+X,2 :Q0T034 

40 IFR=1THEH34 

41 R=R-1 : B= <R*22>+W+X:C=PEEK<B>:F0RR=1 
T03:POKEB , C-fl:G0SUB99:NEXT 

42 P=P+1 :G0SUB67:1FR=1THEH44 

43 GOTO30 

44 F0Rfl=W+44T03185 :1FPEEK ( R > =9THEN34 

45 NEXT:H=M+1 :F0RC=1T03:G0SUB32:NEXT:G 
0SUBS7 :G0SUB61:G0T034 

46 J=2:Q=R-1:FORR=0TO21:RX< fl > =0 :NEXT:B 
= < 0*22 > +W+X : R--PEEK C B > : I Ffi=7THEN69 

47 RX < X ) = ls P0KE36S77,252 : P0KE36878.. 36 : . 
V=W+X-22:1Ffl=12THENP0KEB.17:2=2+0:POKEV 
,0 

48 E=0 :F=20:D=1:G=1: 1 = 1;GOSUB52 sPOKEV, 

1 :E=21 :F=1:D=-1:G=D:I=D:G03UB52 

49 E=0 : F=21 :D=1 :G=-22:1=0 :G0SUB52:POKE 
V,0:IFC=6THEN35 

50 IFH=0THENP0KEV ..14: P0KE36877,0 : POKEB 
6878,47 :G0SUB82:G0SUB61 :GOTO30 

51 Q=Q—1:G0T048 

52 IFC=6THENRETURN 

53 H=0 :F0Rfì=ETOFSTEF'D : IFRX<R>=0THEN60 

54 B=C0*22 >+W+R+G:C=PEEK<B > 

55 IFC=90RC= 12THENP0KEB,C+5 :H= 1 :2=2+':!Q 
+ CRBSC I :■ ~ 1 > > :RX<fì+I) = l :GOT059 

56 I FC= 140RC= 17THEHRX < R+1 ;■ = 1 : H= 1 :G0T06 

0 

57 IFC=3THENC=6:RETURN 

58 RX<R +I>=0 :G0T060 

53 I FRND C 1 > <. 02RNDCO12THENC=6 : RETURN 

60 NEXT:RETURN 

61 PRI NT " gl" SPG < 13 > " $ ” 2* 100 

62 R= I NT (2/1000) : IFR=K+1 THENK=K+1 : GOSU 
B82:G0SUB82 : M=M+1 

63 IFMC1THEHPOKE7680,14:G0T065 

64 FORfi=76S0TO7673+N:POKER,2 :NEXT:POKE 
R, 14 

65 IFV=0THENPOKE7687,14 :G0T067 

66 F0RR=7687T07686+V :POKER,19:NEXT : POK 
ER ,14 

67 I FF'C 1THENPOKE7702,14: RETURN 

68 FORB=7702TO7701+P:POKEB,17:NEXT:POK 
EB,14 :RETURN 

63 fl=M+X :B=240 : IFVOTHEN30 


Seguito programma 2. 

72 R=R+22 : C=PEEK ■: fl > : POKER , C+1 :1 FC= 140R 
C=3THENP0KER,C+4 

73 P0KE36875.B:FORD=0TO200:NEXT:D=PEEK 

H+22 

74 IFD04RNDD0HRNDD03RNDR68164THENB= 
B—5 :POKER,C:G0T072 

75 P0KE36875,0 :G0SUB93:POKEfl+30742,15 

76 IFCO14RNDC<>9THENRs=R-1 

77 V=V-1 :G0SUB65:G0T03© 

78 FORB=1T02: POKER,C+B:G0SUB99:NEXT : 00 
SUB33:B=150 

73 R=R-1 :P0KE36878,36 :1FR<1THENP0KE368 
78,47 :GOTO81 

80 P0KE36877,B:fl=<R*22>+W+X:C=PEEK<R>: 
POKER,C+l:FORD=@TO200:NEXT : POKER,C-3:B= 
8+5:G0T079 

81 POKEW+X,23 :G0SUB83:G0T024 

82 F0RR=47T032STEP-1 :P0KE36878,R :P0KE3 
6876,237 :FORB=1T025:NEXTB,fl:P0KE36876,0 
: P0KE36878,47:RETURN 

83 P0KE36877,220 :F0RD=47T032STEP-1 :POK 
E36878,D:P0KE36879,26:FORE=1TO70:NEXT:P 
0KE36879,31 

84 NEXT:P0KE36877,0 :P0KE36878,47 :POKE3 
6879,30 :RETURN 

85 2=J : POKEB,3 :POKEB+38720,2 :POKEV,14: 
FORR=OTO40:P0KE36876,240 :P0KE36878,230 : 
FORB=1T05:NEXT 

86 P0KE36878,0:F0RB=1T05:NEXTB,R:P0KE3 
6876,0 :B=150 :G0T079 

87 FORfl=7790TOS135 :POKER,4 s POKEfl+30720 
,15:NEXT:B=220:C=7812 :FORfl=1T02:FORD=1T 
030 

88 E= RND <0 >*B > +C : IFPEEK < E > =3THEN88 

89 POKEE,9 :POKEE+30720,8 :NEXT : B=154 :C= 
8032 :NEXT:FORR=1TOS 

90 B=C RND<1>*374 >+7812 :C=PEEK<B >: IFC=3 
ORC=NTHEN30 

91 POKEB,N:NEXT:FORR=0TO109 :POKE38400+ 
fl,0 :NEXT:FORR=0TO21 :P0KE38444+R,3 : P0KE7 
724+fl,20 :NEXT 

32 FORfl=0TO3:POKE38407+R,2 :NEXT : RETURN 

93 POKER,21;POKER +22,22 s G0SUB83: POKER, 
14 : FOKEA+22,14 :RETURN 

99 P0KE36874,200 :FORE=1TO10 :NEXT:POKE3 
6874,0 :RETURN 


L i s+3. s i robe 1. i. eira* i c. i 


6:1 □ 

1 3 

8 : 1 a 

23 : 1 □ 

61 : 1 3 


SHXFT HOME t CHRf(147 > 1 

CTRL 7 X CHEFC 31> X 

CTRL 6 CCHR#<30>3 

SHIFT HOME r.CHRT( 147> 3 

HOME CCHRT(13> X 
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•TUTTO SUL C 64 


•PRESENTATO 
IL NUOVO 
SINCLAIR QL 


•ABBIAMO PROVATO 
IL NUOVO 
PRODOS APPLE 


• PROGRAMMI PER: ^ 
APPLE, VIC 20, ZX81, 

C 64, M 20, SPECTRUM, 
PET CBM. 


CON INSERTI: 

SUPER BIT RISERVATO PERSONAL 
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DIGIDATTICA 



UNA PUBBLICAZIONE DEL GRUPPO EDITORIALE JACKSON 












Figura 1. Raffigurazione schematica della trasformazione di un carattere 
grafico in una matrice binaria. 



Figura 2. Tabella delta verità dell'operazione di or esclusivo con cui si opera 
sulle locazioni di memoria contenenti lo sprite. 


Figure grafiche animate 
che danno nuovi sbocchi 
alla fantasia creativa 
nella programmazione 


di Flavio Stella 


A vvicinandosi al C 64, uno 
dei primi passi è senz’altro 
l’esplorazione delle possi¬ 
bilità grafiche offerte dai cosiddetti 
sprite nell’elaborazione grafica ed in 
particolare nella grafica applicata ai 
giochi. Questi grafici animati posso¬ 
no essere definiti, colorati e spostati 
a piacere in sovrapposizione al testo. 

Il C 64 è in grado di gestire con¬ 
temporaneamente Fino ad otto spri¬ 
te e permette quindi un discreto sal¬ 
to di qualità nella programmazione. 

La parola Sprite, letteralmente 
tradotta, significa Folletto, quindi, 
con la tipica immediatezza e traspa¬ 
renza di certa terminologia inglese, 
ci viene suggerito che siamo di fron¬ 
te a qualcosa di magico, elastico, che 
compare e svanisce nel nulla nel bre¬ 
ve volgere di un secondo. Lo scopo 
di questo articolo è di illustrare i 
trucchi che stanno dietro a questa 
magia e di fornire una serie di stru¬ 
menti, adattabili alle varie esigenze, 
che rendano facile e soprattutto im¬ 
mediato il trasferimento dalla teoria 
alla pratica sotto forma di agili figu¬ 
re colorate. 


Il disegno 

È sempre possibile, fissata una 
certa risoluzione, scomporre una fi¬ 


gura in un insieme di punti elemen¬ 
tari; a questa rappresentazione pun¬ 
tiforme è facile sovrapporre un reti¬ 
colo opportunamente proporziona¬ 
to; segnalando poi con 0, in un casel¬ 
lario corrispondente, ogni spazio 
non occupato e con 1 ogni punto, 
avremo ottenuto una matrice bina¬ 
ria i cui elementi saranno memoriz- 
zabili bit per bit in qualsiasi compu¬ 
ter. Basandosi su questo principio le 
lettere ed i caratteri grafici disponi¬ 
bili sulla tastiera del C 64 sono codi¬ 


ficati in una matrice di 8 x 8 punti 
mentre gli sprite occupano uno spa¬ 
zio più grande, precisamente 21 x 24 
punti (vedi figura 1). 

Per ottenere la codificazione di 
uno sprite bisognerà quindi proce¬ 
dere come segue: 

— tracciare un reticolo con 21 righe 
di 24 caselle ciascuna e farne una 
copia, 

— comporre il disegno desiderato 
sul primo schema colorandone le ca¬ 
selle in modo opportuno, 
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Sprite 
per C 64 

— inserire sulla copia uno 0 in casel¬ 
le corrispondenti ad un vuoto ed un 
1 nelle altre, 

— cominciando dall’elemento in al¬ 
to a sinistra scorrere tutta la matrice 
binaria attribuendo ad ogni 8 bit 
binari successivi il loro corrispon¬ 
dente valore decimale (vedi listato 1 

— conversione Binario/Decimale), 

— concludere la serie dei 63 (21 ★ 
(24/8)) valori ottenuti con unoOche 
serve da separatore e quadra il nu¬ 
mero totale ad una potenza di due 
(216 = 64). 

Ora la codifica è completa ed il 
blocco dei 64 numeri decimali pron¬ 
to ad essere inserito opportunamen¬ 
te nella memoria con i criteri che 
verranno esposti nella seconda parte. 

Lo strumento proposto per mini¬ 
mizzare questa lunga e noiosa parte 
del lavoro è il programma del listato 
2 . 


Sprite drawer 

Subito dopo l’introduzione que¬ 
sto programma traccia sul video il 
reticolo 21 x 24 che fa da tavola da 
disegno ed una lista dei colori dispo¬ 
nibili. 

Tramite il joystick bisognerà po¬ 
sizionarsi in corrispondenza del co¬ 
lore prescelto e premere F1RE; a 
questo punto il cursore sarà già 
pronto, all’interno dello spazio deli¬ 
mitato, a ricevere i comandi di mo¬ 
vimento ed a marcare con il colore 
selezionato la sua posizione, se verrà 
premuto il tasto del joystick; ripe¬ 
tendo l’operazione su di una casella 
già piena si otterrà l’effetto contra¬ 
rio, cioè la cancellazione. Il disegno 
sarà visibile sia sulla tavola dove 
scorre il cursore sia attraverso lo 
sprite, aggiornato in tempo reale, 
che si trova all’interno del riquadro 
PROVA e che fornisce in termini 
grafici e di colore l’esatta rappresen¬ 
tazione del risultato ottenuto fino a 
quel momento (figura 3). 

L’operazione creativa non ha li¬ 
miti di tempo ed è consentito cam¬ 
biare il colore, una o più volte, pre- 



CHE HOME VUOI DRRE ALLO SPRITE 


? ALBERO DI NATALE 

COSA NE VUOI FARE ? 

1- REGISTRARLO 

2- STAMPARLO 

3- LISTARLO SU VIDEO 

4- CORREGGERLO 

5- FINE 



PER TORNARE AL MENU ' MI 


Figure 3/4/5. Tre hard copy del video durante l’esecuzione del programma; lo 
sprite non viene rilevato dalla stampante ma è presente sullo schermo in tutte e 
tre le occasioni. 
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Figure 6/7/8. Tre sprite stampati con diverso soggetto riportanti la codifica 
decimale pronta per essere utilizzata nei programmi. 


mendo il tasto del joystick dopo 
aver posizionato il cursore sull’ap¬ 
posita casella COL. 

La funzione FILL, invece, dà la 
possibilità di riempire Figure di cui 
siano tracciati solo i contorni rispar¬ 
miando una notevole quantità di 
tempo. Questa routine contiene al¬ 
cune imperfezioni che talvolta co¬ 
stringono a rifinire manualmente 
l’operazione; il considerare tutte le 
conformazioni possibili avrebbe ri¬ 
chiesto un maggior numero di istru¬ 
zioni e quindi un ulteriore rallenta¬ 
mento di tutta la procedura senza 
recare, a mio parere, benefici ade¬ 
guati. Quando la composizione del¬ 
lo sprite sarà definitivamente ulti¬ 
mata si dovrà uscire premendo il 
tasto sulla casella FINE, la nuova 
videata conserverà l’immagine dello 
sprite e chiederà un nome che indivi¬ 
duerà il soggetto ai fini di un succes¬ 
sivo utilizzo; immediatamente dopo 
verrà proposto un menù (figura 4) 
per la scelta del tipo di archiviazione 
dei dati ottenuti, sarà possibile: 

— registrarli su nastro, 

— stamparli su carta (figure 6, 7 e 8), 
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— visualizzarli subito sullo schermo 
(figura 5). 

Sarà sempre offerta, dopo ciascu¬ 
na di queste routine, la possibilità di 
rientrare nel menù per operare una 
nuova scelta, per ripetere il procedi¬ 
mento già utilizzato oppure accede¬ 
re di nuovo al disegno per correzio¬ 
ni; quest’ultima opportunità è stata 
prevista per programmare le anima¬ 
zioni; è possibile infatti sovrapporre 
in rapida successione una serie più o 
meno lunga di sprite, differenti solo 
per qualche particolare, per dare 
l’impressione del movimento. 


Caratteri programmabili 

Abbiamo già menzionato i carat¬ 
teri programmabili nella trattazione 
teorica per far capire che gli sprite 
altro non sono che grandi caratteri; 
ma se i due concetti sono cosi simili 
perché non utilizzare il programma 
Sprite drawer anche per i caratteri? 
Nell’area 21 x 24 destinata ad un 
sprite trovano posto fino a 6 caratte¬ 
ri 8 x 8. 

Composto il disegno, la serie di 
valori che lo codificano si potrà de¬ 
durre con facilità dalla lista su video 
che presenterà in ogni colonna due 
gruppi di otto numeri separati da 
alcuni 0, uno per ciascun carattere 
disegnato (figura 9). 

Il listato 3 vuole fornire uno spun¬ 
to all’uso di questa possibilità che, 
affiancata a quanto già visto per gli 
sprite, arricchisce ancor più le no¬ 
stre conoscenze. Dopo aver trascrit¬ 
to 64 caratteri dalla ROM alla RAM 
i primi 6 (@ ABCDE) vengono sosti¬ 
tuiti con le lettere greche che forma¬ 
no la parola ASTERI, cioè stella, 
(figura 9) ed i successivi 3 (FGH) 
con tre invasori stabilizzati (figura 
10). Il programma fornise automati¬ 
camente una prova di stampa prima 
della sua conclusione ma, prolun¬ 
gandolo opportunamente o, più 
semplicemente, premendo uno dei 
tasti corrispondenti ai 9 caratteri in¬ 
dicati prima, sarà possibile utilizza¬ 
re le lettere greche ed i disegni oppu¬ 
re, sostituendo i numeri nelle istru- 
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10 PRINT"[<1CLR>]C <1RVS>3 C <1R.C>3 CO 

NVERSIOHE BINflRIO/DECIMALE 
20 PRINT"C <3CRSR D> 3 C <1VEL> 3 "; :FORI = 

0TO7: FRI NT"[<1CHR$<204>>3 C<1CHRT<175 > >3[ 
<1CHRf<186 >> 3"; : NEXT:PRINT" C <1CHRT<2 

04 >> 3 C <3CHR$<175 >> 3 C<1CHR$<186 >>3 CC2CR8R 
D> 3 C C4CRSR IJ> 3 " 30 PR I NT " " ; : FORI=0TO7 

40 GETRT: IFflT=""THEN40 
60 IFfiSC<Rf><480RflSC<fi#>>49THEN4@ 

70 FRI NT" "fi$.; : BT=B$+fì$-NEXT 
80 FORI=0TO7:D-D+VRL<MIUT<ET,1 + 1,1>>*2 K 
7-1) : NEXT : FRINT" "D 
90 BT="":D-0: FRINT :GOTO20 


Listato 1. Conversione Binario/Decimale. 



Figura 9. Lettere dell’alfabeto greco che formano la parola ASTERI realiz¬ 
zate con Sprite drawer. 



Figura 10. Tre piccole astronavi da utilizzarsi come caratteri programmabili. 














zioni DATA e/o aggiungendone di 
nuovi, creare altri simboli grafici. 


Conclusioni 

In questa prima parte abbiamo 
analizzato i meccanismi di forma¬ 
zione della codifica necessaria al¬ 
l’impiego degli sprite e dei caratteri 
programmabili; mi auguro che con 
l’aiuto del programma proposto cia¬ 
scuno possa creare, col tempo e la 
pazienza necessari, gli effetti che in¬ 
vidiamo ai videogiochi più sofistica¬ 
ti. 

Nella seconda parte vedremo co¬ 
me creare le procedure di gestione 
degli sprite (movimento/colore/po- 
sizione/collisioni/ecc.); sarà pre¬ 
sentato un programma che legge i 
dati registrati sul nastro con Sprite 
drawer e li trasforma immediata¬ 
mente in figure animate permetten¬ 
do poi di costruire, intorno al nucleo 
centrale, i programmi più disparati. 


10-30 

Inizializza le variabili e abilita lo sprite prova. 

40-50 

Routine in LM per il posizionamento del cursore. 

60-250 

Cambia colore allo schermo e prepara la prima videata. 

260 

Posiziona il cursore e permette la scelta del colore. 

270-290 

Prepara il riquadro PROVA. 

300-390 

Gestisce i movimenti, le scelte e la creazione del disegno. 

400-520 

Scelta del menu archiviazione. 

550-590 

Registrazione su nastro. 

600-760 

Stampa su carta. 

800-840 

Lista su video. 

900-930 

Gestisce il messaggio di ritorno la menu. 

2000-2080 

Muove il cursore posizionandolo con la routine in LM. 

2100-2200 

Lettura joystick. 

2500-2510 

Calcola, in base alle coordinate del cursore, l’indirizzo del byte (ed il bit al 
suo interno) interessato all’operazione che la richiama. 

3000-3120 

Esegue la funzione FILL. 

4000-ss. 

Introduzione. 

Tabella 1. 

Principali routine de! programma Sprite drawer. 

SL 

Indirizzo del blocco di 64 byte per sprite prova. 

V 

Indirizzo base dei registri del circuito VICII. 

C$ 

Insieme dei colori disponibili. 

X, Y 

Coordinale del cursore rispetto allo schermo. 

L, YL 

Minimo valore x, y ammessi per limitare l’area del disegno. 

XH, YH 

C.s. ma valore massimo. 

CO 

Colore prescelto. 

P 

Indirizzo byte della mappa video sotto il cursore. 

PX, PY 

Coordinate cursore rispetto al riquadro delimitato. 

PM 

Indirizzo byte considerato nel blocco sprite. 

Bl 

Valore decimale di un uno nel bit considerato. 

NMS 

Nome attribuito allo sprite. 


Listato 2. Programma Sprite drawer. Tabella 2. Principali variabili del programma Sprite drawer. 

1 tasti grafici e speciali sono stati racchiusi tra i simboli < >, all’interno di parentesi quadre e preceduti da un numero 
che specifica quante volte occorre digitare quel determinato carattere. Es. [ < 8CRSR D> \ digitare per 8 volte il tasto 
di spostamento verso il basso del cursore. Per i caratteri grafici viene indicato il codice ASCII corrispondente; 
consultare il manuale per la conversione. 


SPRITE DRAWER 


10 GOSUB4000:SL=12283 : FORI=SLT0SL+64:POK 
ED 0 : NEXT : P0KE187,0 
20 V*53248 : POKE2042; 192 : SL=12288 
30 PQKEV+23 ; 4 : PQKEV+29,4 : POKEV+4 .■ 50 : F'OKE 
V+5,130 

40 DATR24,166,2,164,182,32,240,255,96 
50 F0RI«679T0687:REfiDfl:POKEI,fi :NEXT 
60 POKE53280,11 ; PQKE53281,12 = C*="C <1 ELIO 
3 C < 1 WHT> ] [ < 1 REO 3 C < 1 CYN> 3 C C1 PUR> 3 C < 1 GRN> 
3 [<1BLU>3 [<1't'EL> 3 CdRRR>3 C<lMfiR>3 [<1R. C> 
3 C<1G. l>]C<lG.2>3[<lV.C>3C<lRZZ>][dG.3> 
3":REM SIMBOLI COLORI 

80 PRINT"[<1CLR>31 <1BLU>3 C<1CRSR D>3"TRB 
< 13 ): FORI=0TO23 = PR I NT "C < 1CHR$ U 86 » 3 "D N 
EXT:FRINT 

90 FORI*0TO20:PRINTTRBCI2>"CdCHR$<186>> 
3"SPC < 24)"E d CHR$ < 204 » 3":NEXT 
100 IFHK 3 1THENPRI NT " C < 1 H0ME> 3 C C22CRSR D> 
3 CC1BLU/3" 

110 PRINTTRBd 3):FORI=0TO23:PRINT"C<1CHR 
$(20703 : NEXT : PRIHT 

120 PRINT"CdCRSR U>3"TRB(13V’CdRVS>3C< 
1RE03?"TAB(24) "?"TRE(36> "?" 


130 PRINTTRB<13)" CdG. 1>3C0L. "TRB(23)"FI 
NE"TAB<33)" FILLCdCRSR U>3 " : IFHK=1THENH 
K=0: RETURN 

140 PRINT" [dH0ME>3C<3CRSR 03 COLORE C 
dCRSR 03 [<3CRSR L> 3 C <9CHR$ (183 » 3 " 

200 PRINT" [<1RE03 -[OP.V3>3NERG CdBL 
K>3 [dRED>3" : PRINT" ~[<1RVS>3BIANCO Cd 
WHT>3 CdRED>3":PRINT" -CdRVS>3R0SS0 C 
<1RED>3 COREO!" 

210 PRINT" -Cd RVS> 3 CELESTE Cd CVN> 3 COR 
EB>3":PRINT" -CC1RVS>3PORPORAC<1PUR>3 C< 
1RE03 “ : PRINT" -CdRVS>3 VERDE C<1GRN>3 
C<1RE03” 

220 PRINT" -C<1RVS>3BLU CdBLU>3 C<1R 
ED>3":PRINT" -[<1RVS>3GIALLO C<1VEL>3 CC 
1REB> 3":PRINT" -Cd RVS>3 fiRRNC10 C <1RRR>3 
Cd REO 3" 

230 PRINT" -CdRVS> 3MARRONE CdMAR>3 CdR 
ED>3": PRINT" -C<1 RVS>3ROSSO CCdR.03 CC 
1RE03": PRINT" -C<1RVS>3GRIGI01 CdG. 1>3 
CC1RED>3" 

240 PRINT" -CdRVS>3GRIGI02CClG.2>3 CC1R 
ED>3”: PRINT" -CC1RVS>3 VERDE CCC1V.03 CC 
1 REO3 " : PRINT" -CCIRVS>3 AZZURROCC1 RZZ> 3 
CC1RE03" 

250 PRINT" -CC1RVS>3GRIGI03CC1G.3>3 CC1R 
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Seguito listato Sprite drawer. 

ED>3 " : PRINT" CdCRSR D>3CdG. 1>3 COCHRfC 
183)>3 " 

260 VL=5:VH=20 : HH=1 : X=10 : V=5 : GOSUB2000•H 

H=0 : C0=V-5 : F'OKEV+41 , CO : POKEV+21,4 

270 PRINT" CdHGME>3 ":F0RI=1T022 ; PRINT" 

" : NEXT 

280 PRINT"C<1H0ME>3CC7CRSR D>3 " : PRINT"[< 
1BLK>] CdRVS>3 PROVfi ":PRINT" CdCHR 


$<207 »]C<6C'HRf CI83 »]CCICHRf<208)>]":FO 

RI=0TG4 

290 PRINT" CdCHRf<180»3 CdCHRfC 

170)>3":NEXT:PRINT" CdCHRf <204»3 C<6CH 
R#d75)>3CdCHRfd86)>3" : IFPEEK(137)=1IT 
HENGOSUB3100 

300 VL=2:VH=23:XL=13:XH=36:V=2:X=13:HH=2 
2 

310 GOSUB2000 

320 IFX=13ANDV=23THENHK=1 :GO3UB100:POKEV 
+21,0:GOTO140:REM CAMBIO COL. 

330 IFX=24RNDV=23THENHK>1:GOSUB100:G0T04 
00:REM FINE 

340 IFX=36ANDV=23THENHK=1 :GOSUB100 :GOSUB 
3000 :GOTO300: REM FILL 

350 GOSUB2500: IF (PEEK<PM>AHDBI)=BITHEN38 

0 

360 PQKEP+54272,CO :PGKEP,102 

370 POKEPM,PEEK(PM)ORBI : GQTO390 

380 POKEP, 32 : POKEPM,PEEK(PM)AND(255-BI) •' 

REM CflNCEL 

390 GDTO310 

400 REM*** FINE **** 

405 PRINT"CdCLR>3 CdCRSR D>3CdBLU>3 
CHE NOME VUOI DARE ALLO SPRITE" 

410 INPUT"CC4CRSR D>3 ";NMf 

420 PRINTTAB< 13) " CC3CRSR D>3CdRED>3 COS 

A NE VUOI FARE ?" 

430 PRINTTABdS) "CdCRSR D>3 CdVEL>] 1- 
REGISTRARLO” 

440 PRINTTABd3)"CdCRSR D>3CC1MAR>3 2- 
STAMPARLO " 

450 PRINTTAB< 13)"CdCRSR D>3C<1VEL>3 3- 
LISTARLO SU VIDEO" 

460 PRINTTABdS)"CdCRSR D>3CdMRR>3- 4- 
CORREGGERLO" 

465 PRINTTABd 3)" CdCRSR D>3 CdMAR>3 5- 
FINE " 

470 GETAf:IFAf=""THEN470 

480 IFAf="1"THEN550 

490 IFAf="2"THEN600 

500 IFAf="3"THEN800 

510 IFRf="4"THENPOKE187,11 :RUN20 

515 IFA$="5"THENEND 

520 GQTO470 

550 REM *** REGISTRAZIONE SU NASTRO *** 
560 PRINT"CdCLR>3CC4CRSR D>3C<1RED>3 A 
TTENDERE PREGO !" : OPEN1,1,1,HMf 
570 F0RI=SLT0SL+63:FRINT#1,PEEK (I):HEXTI 
: CL03E1 
590 GOTO900 

600 REM *** STAMPA SU CARTA *** 

610 0PEN5,4 

615 FORW=0TO70: FRINT#5,CHRf(175);:NEXT:P 


Seguito listato Sprite drawer. 

RINT#5,CHRf d0)CHRfd 0)CHRfd0)CHR$(10) 
620 PRINT#5,CHRf(14)" C<1RVS>3 "NMf " "C 
HRf(15 ) CHRf ( 10 )CHRf ( 10 ) CHRf(10 ) CHR$ C10): 

RIJS;" M 

630 F0RV=2T022 : F0RX = 13T036 : GOSUB2580 ; IF( 
PEEK <PM)ANDBI)=BITHENRIf=RI$+"C<1RVS>3 C 
<1RVS OFF>3":NEXTX:GOTO640 
635 Rlt=Rl$+" ":NEXTX 

648 PRI NT#5, RI $ CHR$ C. 8 ) : RI $ = " " : F'R I NT#5, CH 
Rt(15); : NEXTV 

650 PRI NT#5,CHR* <10)CHR#C10)CHR$<10)CHR* 
(10) 

660 PRINT#5,TAB < 9)"CdRVS>3 DATI DA IMS 
ERIRE NEL PROGRAMMA' "CHRfd0)CHR$<10)CH 
Rf(10) 

680 F0RV*SLT0SL+63STEP12 :STf="":FORX=0TO 
11 

690 STf=STf+RIGHTf <" "+STRf(PEEK< V+X) 

) + " ", 5):NEXTX 

700 IFV+X>SL+63THENSTf=LEFTf(STf,21) 

710 PRINT#5,STf:NEXTV 

720 PRINT#5,CHRf(10)CHRf(10):FORU=0TO70: 
PRINT#5,CHRf(175);: NE XT:PRINT#5,CHRf(10) 
740 CLOSE5 
760 GOTO900 

800 REM *** LISTA SU VIDEO *** 

810 PR I NT "Cd CLR> 3 " 

820 FORV=0TO20 : Nf=RIGHTf(" "+STRf(V)+" 

",4):PRINT" C C1RVS>3 "TAB(11)Nf"C <1RVS 
QFF>3"TAE(7)" - "; 

830 Ff="":FORX=0TO2 : Ff=Ff+RIGHTf(" "+ 

STRf(PEEK<SL+X+V*3)) + " ",5) 

840 NEXTX:PRINTFf:NEXTV 
900 PRINT" CdHOME>3 CC24CRSR D>3 PER TORN 
ARE AL MENU-' CdRVS>3 F 1 C<1 RVS OFF>3C< 
1CRSR U> 3" 

910 GETAf: IFAf=""THEN910 

920 I FAfOCHRf ( 133)THEN910 

930 PRI NT"CdCLR>3 C <5CRSR D>3":GOTO420 

2000 REM*** POSIZIONAMENTO CURSORE *** 

2010 P0KE2,V :POKE182,X 

2020 GOSUB2500:SVS(679):PRINT"C <1RVS>3 C 
<1RVS OFF>3":FORW=1TO40:NEXT 
2030 IFHHO22THEN2050 

2040 IF(PEEK <PM)ANDBI)=BITHENSVS(679):PR 
INTMIDf(Cf,CO+1,1)CHRf(166):FORW=1TO10 :N 
EXT :GOT02060 

2050 SVS(679):PRINT" ":FORW=1TO10 :NEXT 
2060 G0SUE2100 :1FA=127THEN2020 
2070 IFS(4)=0THEN2010 
2080 RETURN 

2100 REM*** LETTURA JOVSTICK *** 

2110 A=PEEK(56320) : F0RI=@T04 •' S( I )=-< (AAN 
D2 TT ) =0 ) : NEXT 

2120 IFS(0) = 1THENV=V-1 :IFVL>VTHENV-V+1 
2130 IFS(1 ) = 1 THENV=V+1 : IFVH-Cr'THENV=V-1 
2135 IFHH=1THENRETURN 
2140 IFS<2) = 1THENX=X-1 :IFXL>XTHENX=X+1 
2150 IFS(3) = 1THENX=X+1 : IFXHCXTHENX=X-1 
2200 RETURN 

2500 P=1824+X+V*40:PX=X-13 :PV=V-2:W=I NT( 
PX/8):PM=SL+PV*3+W:BI=2T(7-PX+U*8) 

2510 RETURN 

3000 REM*** FILL *** 


80 














Sprite 
per C 64 


Seguito listato Sprite drawer. 

3010 F0RV=2T022:B=0 =NM=1 :FORX=13T036 
3020 GOSUB2500 

3030 IF < PEEK < Pl'1 ) RNDEI ) =B I THENNM=NM#~ 1 : B= 

B+l: IFE>2THENNM=1=00103050 

3040 I FNM=-1THENPOKEFM, PEEK<PM>OREI = F'OKE 

P+54272, CO = POKER, 102 

3050 NEXTX, V : RETURN 

3100 F0RV=2T022=F0RX=13TQ36=GOSUE2500 
3110 IF CPEEK(PM)RNDBI>=BITHENPOKEP+54272 
, CO = POKER ,102 
3120 NEXTX,V : RETURN 

4000 F'RINT"[< 1 CLR>]CC4CRSR H>]" = P0KE532S 
0,2 : P0KE53281 , 2 

4010 PRINT"[<1WHT>] SPRITE DRAWER" 

4020 F'RINT" C< 1 WHT>J [< 1CR3R D>] DI F.STEL 
LA <DIC83>" 

4030 PRINT"[<8CRSR D>][<1VEL>3 INSERISCI 
IL JOYSTICK"=PRINT"KICRSR D>3[<1VEL>3 
NELLA PORTA #2" 

4840 PPJNT"[<3CRSR D>] PER COMINCIARE [< 
1 R’/S>] FI C< 1RVS OFF>]" 

4050 GETST=IFS$=""THEN4050 
4060 RETURN 


CARATTERI PROGRAM. 

10 PRINTCHR$ <142)= P0KE52,48 :P0KE56,48 :CL 
R 

20 P0KE56334, PEEK< 56334 ) AND254 : POKE1 , PEE 
K<1)HND251 

30 F0RI=0TO511 : POKE1+12238.PEEK<1+53248) 

: NEXT 

40 POKE<1),PEEK<1)0R4 = P0KE56334,PEEK<563 
34)ORI 

50 P0KE53272,<PEEK<53272)AND240)+12 
60 FORI=0TO71 : PERDA = POKE12288+1,A : NEXT 
70 PRINT"[<1CLR>][<3CRSR D>]CC1G.3>3"TAB 
<17)"0ABCDE[C8CRSR D> 3"= PRINTTAB < 9)"C <1W 
HT>]F","G","HK6CRSR D>3"= END 
100 DATAI 2,0,114,140,140,140,114,0 : REM A 
110 LATA0,0,62,86,68,68,56,0=REM s 
120 DATA0,2,124,144,16,16,8,0=REM T 
130 DATA12,0,124,128,112,128,124,0:REM E 
140 DATA0,0,60,66,66,124,64,64=REM R 
150 DRTA0,0,32,32,32,32,24,0:REM i 
160 DATA0,129,153,231,231,153,129,0 
170 DRTA63,124,56,56,56,56,56,16 
180 DATA130,214,124,124,56,16,16,0 


Listato 3. Prova caratteri programmabili. 


Scrìve, suona, gioca, entusiasma 

Gaetano Marano 


fH ■+PROGRAMMI 

raZX8l 


CON NUOVA ROM +HARDWARE 

Per le sue qualità e il suo modestissimo prezzo lo ZX 81 della 
Sinclair è il computer più venduto nel mondo. 

Oggi, sempre con una modestissima spesa, si può imparare a 
sfruttare questo eccezionale strumento al limite delle sue 
capacità. Basta scorrere questo libro per scoprire quante cose 
lo ZX 81 può fare con l'aggiunta di alcuni semplici ed 
economici componenti. Ad esempio, tramite un semplice 
circuito musicale può riprodurre 50 note su 4 ottave e, sempre 
grazie a una modifica hardware da poche migliaia di lire, lo 
ZX 81 diventa anche l'unico computer in grado di conferire 
effetti sonori ai giochi inseriti tra i suoi programmi. Ma non è 
tutto. Un’altra novità di quest’opera, preziosa anche per chi 
possiede lo ZX 80 con ROM, è il regalo di alcune tastiere 
disegnate da sovrapporre a quella sensitiva dell'apparecchio, 
per ricavarne altre, speciali funzioni. 
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bukir 1798 



Terminiamo con questa 
puntata l’affascinante 
battaglia navale 
presentata nello scorso 
numero 


di Umberto Giovanni Barzaghi 

A ppare, su questo numero 
di Personal Software, il li¬ 
stato, opportunamente 
corredato da REMarks, del pro¬ 
gramma Abukir 1798, il cui articolo 
introduttivo è apparso sul numero 
precedente di Personal Software. 

Si è preferito spezzare l’articolo in 
due parti, piuttosto che ridurre gli 
abbondantissimi REMarks che col¬ 
legano il listato all’articolo del nu¬ 
mero precedente. 

N.B. — Gli utenti di CBM 3032 
devono operare le sostituzioni alle 
righe 23010-23045 per quanto ri¬ 
guarda i numeri di POKE da tastie¬ 
ra, come indicato nei REMarks. 

REMarks 

0 Inizializzazione della variabile uti¬ 
lizzata per riempire il vettore gestio¬ 
ne video, del vettore A A, contenente 
! il numero di navi che compongono 
! le due Botte ( 1 = flotta inglese, 2 = 
flotta francese), del vettore CH, 
! contenente il numero di POKE cor- 
' rispondente ai caratteri checontrad- 
distinguono le unità delle due flotte, 
1 e della variabile G contenente il va¬ 
lore della accelerazione di gravità 
(espressa in metri al decimo di se¬ 
condo, per comodità), utilizzata nel¬ 
la formula balistica che determina la 
traiettoria delle palle da cannone. 


5 Dimensionamento delle matrici 
utilizzate nel programma: 

W$ (25) Solito vettore di gestione 
cursore video. 

C$ (20) Vettore contenente le righe 
di caratteri grafici che compongono 
la cartina del campo di battaglia. 
A$ (17,2) Matrice contenente i dati 
“anagrafici” delle due flotte; la ma¬ 
trice è dimensionata sul valore mas¬ 
simo della numerosità dei due grup¬ 
pi (le 17 navi francesi), con unospre- 
co di 5 elementi per navi inglesi ine¬ 
sistenti, questo spreco è giustificato 
dalla semplicità e simmetria di ac¬ 
cesso alla matrice garantita da que¬ 
sta organizzazione dei dati. 

A (17, 12, 2) Matrice contenente i 
dati “tecnici” delle due flotte; valgo¬ 
no le considerazioni fatte per la ma¬ 
trice di cui sopra. Il primo indice 
indica il numero di serie della nave 
(in pratica il posto che occupa nella 
linea di fila dei due schieramenti), 
l’ultimo a quale delle due flotte ap¬ 
partiene, alcuni dei principali indici 
centrali sono i seguenti: 

0 Contiene la rotta attuale sotto for¬ 
ma di un numero da 0 a 9; lo 0 indica 
che la nave ha “preso a collo”, il 5 
che si trova all’ancora, le altre cifre 
indicano la rotta della nave in base 
alla loro posizione relativa rispetto 
al 5; per cui il 2 è “per Sud”, il 9 “per 
Nord-Est”, ecc.. 

I e 2 Contengono le coordinate della 
nave ( 1 = y, da 1 a 37; 2 = x, da 1 a 
20 ). 

3 Numero dei ponti della nave; le 
fregate vengono considerate mono¬ 
ponte (in realtà, a volte, non lo era¬ 
no). 

6 Indice dei danni. 

7 Danni allo scafo. 

8 Danni all’alberatura. 

9 Velocità di uscita dei proiettili (in 
metri al decimo di secondo). 

II Numero di serie della nave. 

B$ (9) Vettore contenente i termini 


delle andature delle navi (“per 
Nord-Ovest”, “per Est”, ecc.). 

D$ (18, 2) Contenente le stringhe di 
caratteri necessarie per rappresenta¬ 
re le silhouette delle due navi, all’in¬ 
terno della pagina “tattica”. 

10 Inizializzazione di altre variabili; 
fra le altre il vettore RS, che contiene 
la posizione (altezza) a cui devono 
essere poste le bandiere bianche in 
caso di resa, in base al numero di 
ponti della nave. 

11-13 Riempimento del vettore AK, 
dimensionato più sopra, che, per il 
valore della chiave corrispondente 
ad ogni andatura, dà i valori dichia¬ 
ve delle rotte immediatamente con¬ 
tigue a babordo (indice 2) e a tribor¬ 
do (indice 3). 

15-60 Riemp imento del vettore A, 
per quel che riguarda le coordinate 
delle unità che compongono le due 
flotte. Da notare in 15 la inizializza¬ 
zione del vettore RS di indice 5 (va¬ 
lore fittizio del numero di ponti del¬ 
la batteria francese) per quanto ri¬ 
guarda una (improbabile!) richiesta 
di resa da parte del forte. 

65 11 contenuto della matrice A di 
indice 0 (rotta attuale) viene inizia- 
lizzato ad un valore negativo, in mo¬ 
do da escludere i valori del primo 
indice corrispondenti a navi inesi¬ 
stenti. 

70-80 Riempimento della matrice A 
di indice 0 con i valori corrisponden¬ 
ti alla situazione reale(le navi all’an¬ 
cora vengono inizializzate con il va¬ 
lore corrispondente alla loro posi¬ 
zione all’ancora, onde evitare che, 
una volta saltato il turno, possano 
salpare le ancore in una direzione 
qualsiasi). 

85-87 I nizializzazione della matrice 
B$. 

95-190 Riempimento del vettore C$. 
193 Inizializzazione del vettore P, 
utilizzato per disegnare il campo di 
battaglia e accesso ad altre due su- 
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broutine di inizializzazione. 

195-999 Nucleo del programma. In 
particolare: 

195-230 Display della cartina. 
240-255 Viene riprodotta la posizio¬ 
ne delle due flotte. Poiché questa 
routine è utilizzata al rientro dalla 
pagina “tattica”, è necessario esclu¬ 
dere quelle unità la cui situazione sia 
stata modificata dal combattimento 
(test di riga 240 e 245, per escludere 
le navi affondate e sfuggite, ma non 
quelle arrese o arenate). 

260-279 Vengono ricapitolati i co¬ 
mandi di controllo. 

282-450 Ciclo da 1 a 17 per percorre¬ 
re la matrice A; il ciclo non può 
essere esplicito per consentire la sua 
interruzione e successiva ripresa in 


caso di scontro. In particolare: 
284-410 Ciclo da I a 2 per alternare 
le mosse dei due avversari. 

286 La J-esima unità viene esclusa 
nel caso in cui abbia un valore di 
rotta negativo, indice del fatto che è 
ormai esclusa dal gioco, perché fug¬ 
gita, affondata, arenata, incagliata 
ecc.. 

287 II test permette di saltare la se¬ 
zione immediatamente successiva se 
la nave non si trova all’ancora e non 
ha preso a collo. 

288 Si accede alla subroutine che 
comunica se la nave è all’ancora o 
ha preso a collo (8000), a quella re¬ 
sponsabile della segnalazione della 
posizione della nave(3000), al sotto¬ 
programma che verifica se la nave è 


a portata di una nave avversaria 
(6000) e, nel caso in cui il test dia 
esito positivo (QG = I) si accede al 
monitor di controllo dello scontro 
( 22000 ). 

290 Si richiama il sottoprogramma 
che esamina il raggiungimento delle 
condizioni di vittoria da parte di 
uno o l’altro dei due contendenti; 
quindi si salta il turno, come da “re¬ 
golamento”. 

293 Segnala l’eventuale resa della 
J-esima unità. 

294 Analogamente a quanto sopra 
per il caso di disalberamento. 

295 II test tende a stabilire se la nave 
che si sta esaminando appartiene al¬ 
la flotta controllata dal computer; in 
caso negativo salta la sezione di pro¬ 
gramma seguente. 

296-300 Questa parte di programma 
coordina le decisioni strategiche del 
computer. In particolare: 

296 Nel caso in cui la nave non sia in 
grado di governare, la fa proseguire 
per la propria rotta. 

297 Si accede alle subroutine che 
segnalano la posizione della nave 
(3000), ne comunicano il nome 
(16000) e, quindi, alla subroutine di¬ 
rettamente responsabile delle deci¬ 
sioni strategiche. 

298 Si richiamano le subroutine che 
riposizionano la nave in base alle 
decisioni prese e quindi ne esamina¬ 
no la posizione in relazione agli av¬ 
versari per stabilire se è coinvolta in 
uno scontro a fuoco. 

300 Si esaminano le condizioni di 
terminazione e si ricicla. 

310-320 Sezione responsabile del co- 
ordinamento delle subroutine ne¬ 
cessarie per acquisire i comandi del 
giocatore. In particolare: 

310 Analoga alla 286. 

313 Vedi 296. 

315 Simile alla 297, in questo caso 
non si accede alla subroutine 20000 
(decisioni strategiche del computer) 
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ma alla 1000 (acquisizione comandi 
del giocatore). Il test consente di ri¬ 
chiamare nuovamente le stesse rou¬ 
tine nel caso in cui il giocatore non 
abbia preso alcuna decisione, ma 
abbia chiesto di conoscere la situa¬ 
zione delle proprie navi (opzione 
“S”) od il rapporto delle vedette 
(“V”). 

316-320 Analoghe alle 298-300. 

400 Si esamina la possibilità che una 
nave inglese sia caduta sotto il tiro 
delle batterie francesi sull’isola. In 
caso positivo si accede alla opportu¬ 
na subroutine 

410-450 I due cicli impliciti vengono 
chiusi. 

500 Nel caso in cui una intera serie di 
mosse sia terminata, si richiama la 
subroutine che mostra il punteggio 
parziale. 

1000-1999 Acquisizione dei coman¬ 
di del giocatore. In particolare: 
1000-1060 Acquisizione “fisica” dei 
comandi da tastiera e smistamento 
verso le opportune subroutine. 
1100-1190 Cambiamento di rotta. 
In particolare: 

1100 II test permette di escludere la 
sezione successiva nel caso in cui sia 
già stata percorsa almeno una volta 
dall’inizio del programma. 

1170 Vengono ricordati all’utente i 
tasti accoppiati alle varie andature. 
1180-1181 Acquisizione del tasto 
premuto. 

1183 Controllo sulla correttezza del 
comando. 

1184 Se la nave è all’ancora o ha 
preso “a collo” si salta l’accesso alla 
subroutine seguente. 

1185 Accesso alla subroutine re¬ 
sponsabile della determinazione 
delle rotte contigue all’attuale. 

1187 Se il viramento richiesto è su¬ 
periore a 45° la nave “prende a col¬ 
lo” e viene inizializzato opportuna¬ 
mente il contenuto della matrice A 
di indice 12, indicante che la nave 
deve scontare l’errore saltando un 
turno. 

1188 Se la nave si è messa all’ancora 
viene opportunamente inizializzata 
la matrice di cui sopra per segnalare 
la necessità di far saltare un turno 


alla nave per poter salpare le ancore. 

1189 Viene mostrata la situazione 
nei due casi delle righe precedenti. 

1190 Nel caso il cui il viramento sia 
corretto, viene aggiornata la varia¬ 
bile contenente la rotta attuale della 
nave e, quindi, viene notificato il 
viramento stesso. 

1300-1380 Subroutine che permette 
di salvare su nastro la situazione 
parziale di una partita in corso di 
svolgimento. In particolare: 
1320-1340 Routine di salvataggio. 
1370 Viene offerta all’utente la pos¬ 
sibilità di continuare la partitadopo 
aver salvato la situazione interme¬ 
dia. 

1400 Si richiama la subroutine che 
riassume la situazione della flotta 
del giocatore. Questo artificio si è 
reso necessario poiché una analoga 
funzione viene svolta, per entrambe 
le flotte, al termine dell’incontro. 
1500-1999 Questa subroutine con¬ 
sente di ottenere il “rapporto” delle 
“vedette” sulla flotta avversaria. La 
principale differenza rispetto alla 
subroutine 48000 richiamata dalla 
sezione di programma precedente è 
rappresentata dal fatto che, invece 
delle percentuali di danni subiti dal¬ 
le singole navi, ne viene comunicata 
la rotta. 

2000-2080 Questo sottoprogramma 
esamina le condizioni di terminazio¬ 
ne dell’incontro. In particolare: 
2010 Vengono inizializzate le varia¬ 
bili contenenti il punteggio acquisi¬ 
to dal giocatore (PG) e dal computer 
(PK), e la variabile PF(2), rappre¬ 
sentante i danni eventualmente su¬ 
biti dalla batteria francese, che ven¬ 
gono opportunamente attribuiti alla 
flotta francese. Viene quindi aperto 
il ciclo che consente di determinare 
il punteggio per le due flotte. 
2020-2030 Si accede al sottopro¬ 
gramma responsabile della effettiva 
determinazione del punteggio otte¬ 
nuto dalle due flotte. 

2043 II test sul vettore YP, opportu¬ 
namente manipolato dalla subrouti¬ 
ne 33000, consente di stabilire se una 
o l’altra delle due flotte non abbia 
più navi in condizioni di combatte¬ 


re. Nel caso in cui uno o l’altro dei 
due flag sia a 0 (= nessuna nave 
operativa), si salta immediatamente 
alla sezione che determina quale del¬ 
le due flotte abbia vinto. 

2045 Se nessuna delle due flotte ha 
superato i 500 punti l’esame in corso 
viene interrotto, poiché il punteggio 
minimo richiesto dalle condizioni di 
vittoria non è stato raggiunto. 

2047 Se sono stati superati, da una 
delle due flotte i 700 punti si salta 
alla sezione di subroutine che deter¬ 
mina il vincitore. 

2048 Se l’una o l’altra delle due flot¬ 
te ha superato i 600 punti con un 
vantaggio sull’altra di almeno 50 
punti, si salta alla parte che stabili¬ 
sce quale delle due flotte abbia vin¬ 
to. 

2050 Se lo scarto tra le due flotte è 
inferiore ai 100 punti (a questa riga 
si accede solo nel caso in cui entram¬ 
bi i due concorrenti abbiano punteg¬ 
gi compresi tra i 500 ed i 600 punti), 
si interrompe l’esame delle condi¬ 
zioni di vittoria. 

2055 II punteggio del computer vie¬ 
ne attribuito alla flotta francese, 
quello del giocatore alla flotta ingle¬ 
se. Nel caso in cui il giocatore abbia 
scelto invece di controllare la flotta 
francese (GG = 2) l’attribuzione 
viene invertita; con questo artificio 
si risparmia un test ed una riga. 
2060-2070 Si annuncia la vittoria di 
uno o l’altro dei due contendenti. 
2080 Si accede, per entrambi i con¬ 
tendenti al sottoprogramma che ri¬ 
assume la situazione finale delle due 
flotte. 

3000-3010 Questa subroutine evi¬ 
denzia (in reverse) la posizione di 
una singola unità; richiamata una 
prima volta, mostra la posizione at¬ 
tuale della nave, quindi, dopo lo 
spostamento dell’unità, una succes¬ 
siva gosub fa ritornare il carattere 
che contraddistingue il singolo va¬ 
scello in formato normale. 
4000-4199 Sottoprogramma di ripo¬ 
sizionamento della nave. In partico¬ 
lare: 

4005 Mediante un ciclo viene fatta 
lampeggiare la posizione dell’unità 
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sulla cartina. 

4006 Nel caso in cui la nave sia co¬ 
stretta a saltare una mossa, si evita 
la sezione che determina la nuova 
posizione della nave. 

4007-4010 Si accede alla subroutine 
che determina l’incremento delle 
due coordinate in base alla rotta at¬ 
tuale (variabile AK), quindi si salva¬ 
no le vecchie coordinate nelle due 
variabili Y0 e X0. 

4020 Si aggiornano le variabili di 
matrice contenenti le coordinate at¬ 
tuali. Il test consente di stabilire se è 
superfluo effettuare il controllo sul¬ 
la corretta posizione dell’unità, dal 
momento che essa non è variata. 
4025 Accesso alla subroutine che re¬ 
alizza il controllo di cui sopra. 

4030 Si rimpiazza sullo schermo la 
vecchia posizione della nave con il 
carattere originariamente presente 
sulla cartina, opportunamente sal¬ 
vato in una posizione della matrice 
A, quindi si provvede a salvare il 
carattere che verrà coperto dalla 
nuova posizione della unità. 

4100 Viene piazzata nella nuova po¬ 
sizione video l’unità in questione e, 
quindi viene fatta lampeggiare. 
5000-5900 Si esamina in quale modo 
la nuova posizione della nave abbia 
modificato la sua situazione. In par¬ 
ticolare: 

5000 Viene acquisito il carattere che, 
sulla cartina, corrisponde alla posi¬ 
zione che la nave deve andare ad 
occupare. 

5005 Se il carattere corrisponde ad 
uno spazio vuoto, vale a dire mare 
aperto, l’esame termina con esito 
positivo. 

5010-5020 Viene esaminato il caso 
in cui si sia speronata una nave ap¬ 
partenente ad una o all’altra delle 
due flotte. 

5030 Viene verificato il caso in cui 
una delle fregate francesi si sia inca¬ 
gliata sulle rocce(alle navi superiori, 
come stazza, alle fregate, non è pos¬ 
sibile incagliarsi, poiché si arenereb¬ 
be prima sui banchi di sabbia che 
circondano la terraferma, e sui quali 
le fregate, a causa del loro basso 
pescaggio, possono avanzare impu¬ 


nemente). 

5040 Se il carattere corrisponde ad 
uno dei caratteri che costituiscono 
la cornice della cartina si accede alla 
subroutine che segnala la fuga del¬ 
l’unità. 

5050 Se la nave in questione è una 
fregata (numero di ponti uguale a 1 ), 
l’esame può dirsi concluso con esito 
positivo. 

5060-5099 Se il corso della subrouti¬ 
ne non è stato interrotto in una delle 
righe precedenti, allora la nave in 
questione si è arenata (questo artifi¬ 
cio è stato escogitato per evitare di 
dover confrontare il carattere CH 
con i vari caratteri che costituiscono 
la cartina). In particolare: 
5060-5070 Viene aggiornata la va¬ 
riabile contenente i danni subiti. 
5080 Viene comunicato l’avvenuto 
arenamento. 

5600-5610 Viene comunicata la fuga 
dell’unità, come nel caso della sezio¬ 
ne di programma immediatamente 
precedente, viene opportunamente 
modificata la variabile di matrice di 
indice 0: — 10, indica che l’unità in 
questione si è arenata; —. 7 che essa è 
fuggita. 

5700-5799 Come sopra per il caso di 
incagliamento (— 20). 

5800-5899 Viene trattato il caso in 
cui sia avvenuto unosperonamento. 
In particolare: 

5800 Viene ricercata quale sia (nu¬ 
mero d’ordine) la nave speronata 
(che può appartenere ad entrambe le 
flotte); a tale scopo si accede ad una 
opportuna subroutine. 

5830-5835 Vengono aggiornati i 
danni per entrambe le unità coinvol¬ 
te nello scontro. Essi sono propor¬ 
zionali alla stazza della nave con cui 
ci si è scontrati. 

5840 La nave speronatrice viene 
mantenuta nella sua vecchia posi¬ 
zione. 

5850-5870 Viene comunicato lo spe- 
ronamento. 

5899 Si analizza, per entrambe le 
navi coinvolte, se i danni ricevuti 
possono portare all’affondamento. 

5900 Routine di servizio (determina 
i nomi delle due navi coinvolte nello 


speronamento. 

6000-6999 Viene analizzata la possi¬ 
bilità che la mossa abbia portato ad 
uno scontro a fuoco. In particolare: 
6000 Nel caso in cui la nave che ha 
appena effettuato una mossa si sia 
messa all’ancora (o abbia saltato il 
turno per la stessa ragione), si salta 
ad una opportuna sezione. 

6003 Se la nave in questione ha pre¬ 
so a collo non può essere coinvolta 
in uno scontro. 

6005-6500 Si determina se ci sia, al¬ 
l’interno della Z.O.C. della nave, 
una nave avversaria a tiro, nel caso 
in cui la nave sia all’ancora, e possa 
quindi modificare la propria posi¬ 
zione per fare fuoco anche su navi 
che non si trovino al suo traverso di 
tribordo o di babordo. 

6510-6999 Si opera l’analisi di cui 
sopra nel caso in cui la nave si trovi 
normalmente in navigazione, e pos¬ 
sa quindi sparare solo agli avversari 
che si trovano al traverso rispetto ad 
essa. In particolare: 

6510-6545 Si esamina la situazione 
al traverso di tribordo. 

6550-6575 Come sopra per il traver¬ 
so di babordo. 

7000-7999 Si esamina il caso in cui 
una delle navi inglesi sia a portata 
della batteria francese sull’isola di 
Abukir. In particolare: 

7005 Nel caso in cui il forte si sia 
arreso in uno scontro precedente 
(impossibile se si trova in mano al 
computer) si abbandona l’analisi. 

• 7010-7040 Viene “scrutato” il tratto 
di mare soggetto al tiro delle batterie 
per scoprire eventuali vascelli ingle¬ 
si. In particolare: 

7020 I vascelli amici vengono esclusi 
dall’esame. 

7035 Vengono esclusi anche i vascel¬ 
li nemici che si siano arresi (—. 5) nel 
corso di precedenti scontri con le 
batterie del forte. 

8000-8999 Routine di servizio utiliz¬ 
zata nel caso in cui la nave debba 
scontare un turno di sosta. 
9000-9999 Routine di inizializzazio- 
ne, consente di attribuire un rango 
ed un numero d’ordine a quei va¬ 
scelli che siano anagraficamente 
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ignoti. 

10000-10550 Altra routine di inizia- 
lizzazione. In particolare: 
10005-10100 Nel caso in cui si abbia¬ 
no partite in corso, provvede a cari¬ 
carle da cassetta. 

10500-10550 Nel caso in cui si dia 
inizio ad una nuova partita, acquisi¬ 
sce la scelta del giocatore, circa la 
flotta che desidera controllare. La 
variabile CK (= flotta controllata 
dal computer) viene inizializzata di 
conseguenza. 

11000-11999 Inizializzazione dei da¬ 
ti anagrafici e di altri dati tecnici. In 
particolare: 

11000-11050 Vengono introdotti i 
dati anagrafici noti. Inoltre la matri¬ 
ce A di indice 3 (= numero dei ponti) 
viene genericamente inizializzata a 
2 . 

11055 Le variabili contenenti i ca¬ 
ratteri corrispondenti alle posizioni 
occupate, sulla cartina, dalle navi 
vengono inizializzate a un valore di 
poke corrispondente allo spazio 
vuoto (32). 

11056 I danni vengono inizializzati a 

0 . 


11057 Vengono inizializzate le va¬ 
riabili contenenti i numero d’ordine 
della linea di fila assunta dalle due 
flotte. 

11058 Viene segnalato con un op¬ 
portuno flag che le navi della flotta 
francese devono saltare un turno 
perché inizialmente all’ancora. 
11060-11070 Vengono inizializzate 
le variabili di indice 3 per i vascelli 
che non siano dueponti (“L’Orient” 
e le fregate francesi); quindi si calco¬ 
la il valore della velocità iniziale dei 
proiettili in base alla stazza delle na¬ 


vi. 

11080 I dati anagrafici ignoti vengo¬ 
no sostituiti con dei dati di rango e 
di numero d’ordine generici. 

12000 Routine di clearing della par¬ 
te di schermo utilizzata per far com¬ 
parire le scritte. 

12500 Routine di temporizzazione. 
13000-13100 Questa subroutine per¬ 
mette di attribuire l’incremento op¬ 
portuno alle coordinate, in base alla 
rotta tenuta. 


14000-14900 Si determina, per ogni 
rotta, qual’è la rotta immediata¬ 
mente contigua a tribordo ed a ba¬ 
bordo. 

15000-15050 Routine di servizio per 
l’analisi della situazione della J- 
esima nave. Nel caso in cui sia anco¬ 
ra in condizioni di combattere se ne 
comunica la rotta. 

16000 Display del dato anagrafico 
corrispondente alla J-esima nave. 
17000-17020 Questa routine ricerca 
il numero d’ordine di una data unità 
appartenente ad una delle due flotte 
in base alle sue coordinate, esclu¬ 
dendo le unità fuori combattimento 
(A(K0, 0, J0) < -. 5). 

18000-18999 Questo sottoprogram¬ 
ma determina, in base ad una rotta, 
quali debbono essere le rotte, di 
eventuali navi, perpendicolari ad es¬ 
sa, per poterle escludere da eventua¬ 
li scontri a fuoco. 

19000-19060 Questo sottoprogram¬ 
ma rappresenta il monitor di con¬ 
trollo dei sottoprogrammi coinvolti 
negli scontri a fuoco. In particolare: 
19000 Si accede ai sottoprogrammi 
che danno display sul video dall’al¬ 
zo e della carica attuale per i canno¬ 
ni del vascello controllato dall’uten¬ 
te. 

19010 II test consente di stabilire se 
entrambi i vascelli hanno esaurito i 
colpi. 

19020 Se il giocatore non ha alcuna 
“bordata” in volo, si accede alla su¬ 
broutine che consente di modificare 
i dati di alzo e carica, oltre che di 
acquisire il comando di “fuoco”. 
19030 Analoga alla riga precedente, 
ma, in questo caso, si accede alla 
subroutine responsabile delle scelte 
tattiche del calcolatore. 
19040-19050 Sia nel caso del gioca¬ 
tore (CN = 1) che del computer(CN 
= 2), si accede alla subroutine re¬ 
sponsabile dell’animazione grafica 
della palla di cannone. 

19060 Si ricicla. Le condizioni di 
uscita, sono quindi legate all’esauri¬ 
mento dei colpi o al fatto che la 
variabile-semaforo GH sia stata 
messa a 1; il che indica che lo scon¬ 
tro si è esaurito o per affondamento 


o per resa di uno dei due vascelli. 
20000-20999 Questa subroutine è re¬ 
sponsabile delle scelte strategiche 
del computer. In particolare: 

20000 Vengono inizializzate le va¬ 
riabili destinate a contenere la prio¬ 
rità da assegnare ad un viramento a 
tribordo o a babordo, od alla prose¬ 
cuzione del vascello sulla rotta at¬ 
tuale. Quindi si accede alla subrouti¬ 
ne che determina, per ogni rotta, le 
due rotte immediatamente contigue 
(NT e NB). 

20020-20040 Per ognuna delle tre 
rotte suddette, che sono le uniche 
possibili alternative disponibili per 
la nave, si accede ad una serie di 
subroutine che contribuiscono ad 
assegnare i punteggi di priorità su 
cui il calcolatore basa la sua scelta. 
20050-20060 Con l’aggiunta di un 
meccanismo di casualità, che ha pe¬ 
rò efficacia, solo nel caso in cui le tre 
scelte siano in tutto e per tutto “logi¬ 
camente” equivalenti, il calcolatore 
effettua la sua scelta. 

20070 Nel caso in cui la rotta pre¬ 
scelta portasse ad una collisione con 
una nave avversaria, si richiama una 
subroutine che stabilisce se questa 
collisione (indicata dalla variabile 
PP inizializzata a 49) può portare 
all’affondamento della nave con¬ 
trollata dal calcolatore. 

20080 Se la mossa prescelta portasse 
senz’altro a dei “guai” (indicati dal¬ 
la variabile PP inizializzata a — 99) si 
sceglie l’unica alternativa di porre la 
nave all’ancora. 

20090-20999 Si modificano le varia¬ 
bili coinvolte nella decisione presa e 
si comunica la (eventualmente nuo¬ 
va) rotta del vascello. 

21000-21030 Questo sottoprogram¬ 
ma stabilisce se l’ultima mossa effet¬ 
tuata dalla K-esima nave, abbia de¬ 
terminato una possibilità di scontro 
a fuoco con una nave avversaria 
(QG = 1). 

22000-22999 Questa (pesante!) su¬ 
broutine, rappresenta l’inizializza- 
zione, l’attivazione e l’esame dell’e¬ 
sito, delle varie quantità coinvolte 
nella gestione “fisica” dello scontro 
a fuoco tra due vascelli. In particola- 
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re: 

22005 Tra l’altro, si accede alla su¬ 
broutine che provvede a costruire le 
immagini grafiche dei vascelli in ba¬ 
se alle loro caratteristiche tecniche 
ed alla loro posizione relativa 
(poppa-a-poppa o poppa-a-prua). 
22010-22047 Vengono inizializzate 
tutte le variabili necessarie alla ge¬ 
stione dello scontro. 

22050 Display della superficie mari¬ 
na. 

22060 Display dei due vascelli coin¬ 
volti nello scontro. 

22070-22075 Display dei dati ana¬ 
grafici delle due navi, in posizione 
opportune. 

22080 Si richiama la subroutine di 
controllo dello scontro a fuoco. 

22110 Vengono attribuiti i danni su¬ 
biti nello scontro alle due navi che vi 
sono state coinvolte. 

22120 Come sopra per i danni speci¬ 
fici allo scafo ed all’alberatura. 
22999 A scontro concluso, si rientra 
con una GOTO, in un punto oppor¬ 
tuno del nucleo di gestione del pro¬ 
gramma. 

23000-23080 Subroutine di acquisi¬ 
zione dei comandi da tastiera duran¬ 
te gli scontri. In particolare: 

23010 Si acquisisce il tasto 4 (= 
aumenta l’alzo dei cannoni) e si ac¬ 
cede alla subroutine che modifica 
l’alzo dei cannoni con incremento 
DL = + 1. N.B. nel caso di utenti di 
CBM 3032 è necessario sostituire il 
numero su cui viene seguito il test 
(52), con il corrispondente valore 
accoppiato al tasto “4”, cioè 42, per 
il 3032. 

23020 Acquisizione del tasto “?” e 
acceso alla subroutine che consente 
la resa della nave controllata dal 
giocatore. N.B. a 63 sostituire 20 per 
gli utenti di 3032. 

23020 Analoga a 23010 ma in decre¬ 
mento. N.B. per il 3032 34 invece di 
53. 

23030-23040 Acquisizione dei tasti 
di controllo della carica ed accesso 
all’opportuna subroutine di display. 
N.B. in 23030, per gli utenti di CBM 
3032 a 49 va sostituito 26; mentre in 
23040, a 50 va sostituito 18. 


23045 Se si acquisiscono tasti diversi 
dallo 0, che viene utilizzato per co¬ 
mandare il fuoco, si esce dalla routi¬ 
ne. N.B. gli utenti di 3032 devono 
sostituire a destra del segno di diver¬ 
so 10 a 48. 

23050-23080 Vengono inizializzati 
opportunamente i campi utilizzati 
per determinare la traiettoria del 
colpo (alcuni di essi vengono in par¬ 
te “randomizzati” per ottenere una 
certa “imprecisione” di tiro). 
24000-24050 Sottoprogramma di 
animazione grafica delle “bordate” 
per entrambe le navi. In particolare: 
24005 II valore dell’alzo del concor¬ 
rente CN, viene convertito dalla for¬ 
ma in gradi sessagesimali in cui ap¬ 
pare su video a quella in radianti 
utilizzata dalle funzioni trigonome¬ 
triche di sistema. 

24010 Inizializzazione del valore di 
velocità iniziale del proiettile e clea¬ 
ring della vecchia immagine della 
palla di cannone, sostituendola con 
il carattere appropriato. 
24015-24016 Modifica del valore di 
ascissa. 

24017-24020 Determinazione del 
valore di ordinata corrispondente 
all’ascissa suddetta nella traiettoria 
determinata dai dati di tiro intro¬ 
dotti. 

24023 Se l’incremento nell’ordinata 
è superiore a due unità video non 
viene posizionata l’immagine della 
palla di cannone in modo da “ad¬ 
dolcire” la curva della traiettoria. 
24025 Se la palla di cannone è uscita 
dai limiti dello schermo viene azze¬ 
rata la variabile-flag che consente di 
far partire un nuovo colpo o di mo¬ 
dificare alzo e carica. 

24028 Se la palla è finita in acqua, si 
accede alla subroutine che “anima” 

10 spruzzo, quindi si azzera la varia¬ 
bile di cui sopra. 

24030 Viene memorizzato il caratte¬ 
re “coperto” dalla nuova posizione 
della palla di cannone. 

24036 Si salta la sezione successiva 
nel caso in cui il carattere “coperto” 
corrisponda ai caratteri con cui ven¬ 
gono rappresentati i danni alle navi, 

11 fumo dello sparo o lo spazio vuo¬ 


to. 

24038 Si richiama la subroutine che 
compie l’esame del colpo andato a 
segno. 

24039-24044 Si aggiornano le op¬ 
portune variabili in base all’esito 
dell’esame suddetto. In particolare: 

24040 Si aggiornano i danni totali 
subiti. 

24041 Nel caso in cui si sia colpito lo 
scafo, si aggiornano le variabili op¬ 
portune. 

24042-24043 Si aggiornano le varia¬ 
bili corrispondenti a colpi all’albe¬ 
ratura e, nel caso in cui si sia supera¬ 
to il limite previsto, si accede alla 
subroutine di “disalberamento”. 

24044 Analogamente a quanto so¬ 
pra nel caso in cui la nave non sia più 
in grado di governare. 

24045 Display del danno provocato 
dal colpo. 

24047-24050 Annullamento della 
vecchia posizione e display della 
nuova. 

25000-25999 Subroutine responsa¬ 
bile delle decisioni tattiche per il cal¬ 
colatore. In particolare: 

25003 Viene stabilita una gittata fit¬ 
tizia da utilizzare per i calcoli dell’al¬ 
zo e della carica. 

25005 Con un meccanismo analogo 
viene stabilito un alzo che tende ad 
abbassarsi con il proseguire dello 
scontro. 

25010 L’alzo fissato viene converti¬ 
to da gradi sessagesimali a radianti. 
Quindi viene calcolata la velocità di 
uscita del proiettile necessaria per 
raggiungere, con l’alzo fissato, la 
gittata prescelta. 

25020 Viene calcolata l’altezza del 
tiro. 

25030-25045 Vengono inizializzate 
le variabili tecniche della bordata. 
25047 Nel caso in cui il calcolatore si 
trovi a controllare la batteria france¬ 
se ed a sparare, dall’alto degli spalti 
del forte, contro un vascello disalbe¬ 
rato, i dati tecnici vengono modifi¬ 
cati in modo da abbassare il tiro. 
25060 Se il calcolatore si trova in 
condizioni di svantaggio, limitata- 
mente allo scontro, nei confronti del 
giocatore e non ci sono speranze di 
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ribaltare la situazione, si accede ad 
una subroutine che prende in consi¬ 
derazione l’ipotesi di resa. 
26000-26030 Subroutine di aggior¬ 
namento e display dell’alzo. I limiti 
sono fissati inferiormente ad un gra¬ 
do sessagesimale e superiormente a 
45°. Nel caso in cui si superi uno di 
questi limiti, si rientra nel range di 
valori dalla parte opposta. 
27000-27030 Come sopra per la cari¬ 
ca. Qui i limiti sono rappresentati da 
carica intera superiormente e da 
mezza' carica inferiormente. 
28000-28999 Questo sottoprogram¬ 
ma provoca una colonna d’acqua 
conseguente ad un colpo in mare. 
29000-29999 Questa subroutine esa¬ 
mina la portata di un colpo andato a 
segno. In particolare: 

29010 Se la nave colpita ha superato 
il suo bonus limite si accede al sotto¬ 
programma responsabile dell’ani¬ 
mazione grafica dell’affondamento. 
29015 La variabile CW, contenente 
il numero di POKE corrispondente 
al carattere che rappresenta il colpo 
andato a segno viene inizializzato a 
86 (corrisponde al carattere grafico 
“croce di S. Andrea”). Analoga¬ 
mente il danno corrispondente viene 
posto a coefficiente 1 (ricordo che 
questo coefficiente va moltiplicato 
per il numero di ponti della nave che 
ha esploso il colpo). Nel caso in cui il 
punto colpito corrisponda ad uno 
dei due caratteri che rappresentano 
le palle di cannone, il punteggio rice¬ 
ve coefficienti 0 (il colpo non dà 
quindi frutti) e la palla andata a se¬ 
gno si disintegra. 

29020 Se il colpo andato a segno è 
inferiore al limite superiore dell’o¬ 
pera morta (ha cioè colpito lo sca¬ 
fo), il coefficiente moltiplicato è pari 
a 3. 

29030 Se il punto colpito ha un nu¬ 
mero di poke corrispondente allo 
spazio vuoto in negativo, vale a dire 
che si tratta di una vela, il carattere 
rappresentante il colpo a segno vie¬ 
ne sostituito con un bel foro netto. 
29040 Si accede, se necessario, ad 
una subroutine che corregge l’anali¬ 
si dei colpi nel caso in cui ad essere 


colpito è il forte francese. 
30000-30030 Routine di affonda¬ 
mento. In particolare: 

30002 La variabile di indice 0 viene 
inizializzata a - 30 per indicare l’af¬ 
fondamento (in termini di punteg¬ 
gio, il fatto costerà alla flotta cui la 
nave affondata appartiene, 30 punti 
per ogni ponte della nave stessa). 
30009 Al termine della routine di 
affondamento, viene richiamata, 
dopo averne inizializzato i parame¬ 
tri alla posizione dell’albero di mae¬ 
stra della nave affondata, la subrou¬ 
tine che genera la colonna d’acqua. 
30010-30030 Ciclo di affondamen¬ 
to. Da notare che, nel caso della 
ammiraglia francese, il pennone del¬ 
la nave, con il tricolore, rimane so¬ 
pra il pelo dell’acqua. Non si tratta 
di un errore, il fatto è storico: i fon¬ 
dali della baia di Abukir erano tal¬ 
mente bassi che un vascello masto¬ 
dontico come “L’Orient” (il più 
grosso treponti dell’epoca), non 
aveva acqua a sufficienza nemmeno 
per affondare. Infatti, nel 1801, nel 
corso di una spedizione anfibia in¬ 
glese nella stessa baia, l’ammiraglia 
britannica entrò in collisione con il 
relitto sommerso de “L’Orient”, di 
cui fu recuperata una parte dell’al¬ 
bero di maestra, con cui Nelson si 
fece costruire la bara che doveva ac¬ 
coglierlo dopo Trafalgar. 
31000-31100 Questa subroutine, de¬ 
termina, in base alla rotta di una 
nave, qual’è la posizione del suo tra¬ 
verso di tribordo e di babordo all’in¬ 
terno della sua Z.O.C.. 
32000-32020 Sottoprogramma di 
servizio che comunica l’avvenuto af¬ 
fondamento. 

33000-33999 Subroutine di calcolo 
del punteggio da attribuirsi alle due 
flotte. In particolare: 

33020 Se la T-esima nave apparte¬ 
nente alla flotta è ancora in condi¬ 
zioni di combattere al punteggio to¬ 
tale viene sommato il valore che 
esprime i danni subiti dalla nave in 
eventuali scontri. 

33025 Se la nave si è incagliata o 
arenata, viene sommato al punteg¬ 
gio totale la cifra esprimente il fatto, 


opportunamente mutata di segno. 
33030 Se la nave è affondata, viene 
sommato al punteggio un valore pa¬ 
ri a 30 volte il numero dei ponti della 
nave. 

34000-34999 Questa subroutine rap¬ 
presenta un ausilio nella determina¬ 
zione delle scelte strategiche del cal¬ 
colatore. In particolare: 

34000 Vengono determinate le coor¬ 
dinate dal punto in cui la mossa sot¬ 
to esame porterebbe la nave control¬ 
lata dal calcolatore, quindi si ricava 
il numero di poke corrispondente 
alla posizione suddetta. 

34010 Se la posizione suddetta è 
vuota (HH = 32) le viene assegnato 
un punteggio pari a + 100. 

34020 Se la posizione suddetta rap¬ 
presenta una porzione di terrafer¬ 
ma, il punteggio è pari a - 99. 
34030-34040 Se la mossa porterebbe 
la nave a scontrarsi con una nave 
amica il punteggio è pari a - 99. 
34050 Se la mossa equivarrebbe ad 
una fuga della nave dal campo di 
battaglia la variabile PP viene posta 
a zero. 

34060-34070 Se la mossa porta allo 
speronamento di una nave avversa¬ 
ria, la variabile PP è uguale a + 49. 
34080 Utilizzando una tecnica simi¬ 
le a quella che abbiamo vista appli¬ 
care nella subroutine 5000, riman¬ 
gono da esaminare solo i casi in cui 
la mossa porta la nave sulle secche. 
Se la nave in questione è una fregata, 
il caso è in tutto e per tutto logica¬ 
mente equivalente a quello del mare 
aperto (riga 34010). 

34090 In caso contrario il caso è 
logicamente equivalente a quello 
della terraferma (riga 34020). 

34025 II test permette di saltare l’e¬ 
same delle righe successive per le 
navi appartenenti alla flotta france¬ 
se. 

34100 Se la mossa porta la nave a 
tiro delle artiglierie del forte il pun¬ 
teggio viene diminuito di 10. 

34105 Nel caso in cui ci siano possi¬ 
bilità di speronamento l’esame viene 
interrotto. 

34110-34140 II valore di valutazione 
PP, che abbiamo chiamato punteg- 
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gio, viene modificato in modo da far 
concentrare le navi nella zona cru¬ 
ciale della baia. 

35000-35999 Questa subroutine, 
simmetrica, a tratti, della 6000, ana¬ 
lizza la possibilità che la mossa in 
corso di valutazione porti ad uno 
scontro a fuoco con una nave avver¬ 
saria. In particolare: 

35000 Se la mossa ha, fin qui, otte¬ 
nuto un punteggio di valutazione in¬ 
feriore a 100, vale a dire, la mossa 
porterebbe a “guai” di navigazione; 
l’analisi viene interrotta. 

35003 Dopo aver richiamato la su¬ 
broutine che determina le posizioni 
al traverso della nave di cui ci si 
occupa, si testa l’eventualità che la 
nave sia all’ancora. 

35005-35500 Analoghe alle 6005 
6500. 

35510-35999 Analoghe alle 6510 
6999. 


36000-36030 Analoga alla 21000. In 
particolare: 

36020 Se le navi al traverso hanno 
rotte perpendicolari a quella della 
nave in esame, il punteggio di valu¬ 
tazione viene diminuito di una uni¬ 
tà. 

36030 Si accede alla subroutine che 
valuta la convenienza del calcolato¬ 
re ad accettare lo scontro. 
37000-37999 Sottoprogramma di 
valutazione della convenienza ad 
accettare lo scontro da parte del 
computer. In particolare: 

37010 Al punteggio di valutazione 
fin qui ottenuto dalla mossa in corso 
di esame viene aggiunto un punteg¬ 
gio pari alla differenza tra il numero 
di ponti della nave controllata dal 
calcolatore ed il numero di ponti 
della nave avversaria moltiplicata 
per 10 (in questo modo si evita di 
accettare scontri con navi più grosse 


della propria, se non sono fortemen¬ 
te danneggiate) e sottratto un valore 
pari alla differenza tra i danni subiti 
dalla nave amica e quelli subiti dalla 
nave che si pensa di attaccare (in 
questo modo viene implementato il 
meccanismo necessario per evitare 
che una nave già gravemente impe¬ 
gnata in scontri precedenti, venga 
coinvolta in scontri successivi), a ciò 
si aggiunge un fattore casuale. 
38000-38999 Questo sottoprogram¬ 
ma valuta la convenienza da parte 
del calcolatore di tentare uno spero- 
namento. Il meccanismo è analogo a 
quello della subroutine precedente, 
cambia solo il coefficiente moltipli¬ 
cativo del primo termine (2 e non 
10), e manca, inoltre, il fattore ca¬ 
suale. Nel caso in cui il punteggio di 
valutazione passa da positivo (mos¬ 
sa utile) a negativo (mossa inutile o, 
addirittura, dannosa) viene segnala- 
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to (ponendo il valore suddetto a — 
99) che la mossa è assolutamente da 
evitare. 

39000-39999 Analoga alla 22000 per 
quanto riguarda lo scontro tra una 
nave e la batteria francese sull’isola 
di Abukir. La duplicazione è ovvia¬ 
mente resa necessaria da quest’ulti- 
ma, e la pesantezza di questa su¬ 
broutine è acuita dal fatto che il for¬ 
te è identificato da un particolare 
indice (JF), che va confrontato con 
gli indici di gestione dello scontro. 
In particolare: 

39030 Tra l’altro si accede alla su¬ 
broutine che si occupa di “costrui¬ 
re” il forte. 

39040-39070 Inizializzazione delle 
variabili necessarie allo scontro. 
39080 Analoga alla 22050. 

39090 Display del vascello inglese 
coinvolto nello scontro. 
39093-39095 Display batteria fran¬ 
cese. 

39100 Display dei dati anagrafici del 
vascello inglese. 

39110 Identica alla 22080. 
39180-39190 Analoghe alle 22110 
22120 . 


39999 A scontro concluso, dopo 
aver azzerato la variabile JF indice 
di controllo della batteria francese, 
si rientra con una GOTO nello stes¬ 
so punto del nucleo di gestione del 
programma a cui accedeva la 22000. 
40000-40999 Subroutine di “costru¬ 
zione” della batteria francese. In 
particolare: 

40000 Vengono inizializzate le va¬ 
riabili L(), limite dei colpi a disposi¬ 
zione, che, per il forte, è inizializza- 
ta, ad ogni scontro, a 1000, poiché si 
suppone che la batteria francese non 
sia a corto di munizioni; ed il vettore 
P, contenente i danni subiti dal for¬ 
te, che viene inizializzato ad un valo¬ 
re pari ai danni subiti in eventuali 
scontri precedenti. 

41000-41999 Cantiere e arsenale per 
le navi delle due flotte. In particola¬ 
re: 

41000 Vengono inizializzate alcune 
variabili caratteristiche dei vascelli 
ed utilizzate internamente alla su¬ 
broutine che gestisce lo scontro. L(), 
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contiene i colpi a disposizione (20 
per ciascun ponte); P() i danni subiti 
finora dalla nave in questione, quin¬ 
di il programma si divide in base 
all’appartenenza del vascello all’una 
o all’altra delle due flotte. 
41010-41399 Arsenale inglese. In 
particolare: 

41010 Viene inizializzata la variabile 
contenente il numero di POKE cor¬ 
rispondente al carattere che rappre¬ 
senta la palla di cannone (i proiettili 
inglesi sono bianchi). Quindi si acce¬ 
de a delle opportune sezioni in base 
al numero di ponti del vascello che si 
desidera rappresentare. Ciò, nel ca¬ 
so della flotta inglese, è in realtà 
superfluo (ci sono solo dueponti), 
ma era inizialmente previsto un can¬ 
tiere inglese anche per fregate e tre- 
ponti (in modo da permettere even¬ 
tuali versioni differenziate di questo 
programma, basate su altre batta¬ 
glie); queste sezioni sono poi state 
tolte per ragioni di occupazione di 
memoria. 

41203-41299 Vascello inglese a due 
ponti visto di prua. 

41300-41399 Lo stesso vascello visto 
di poppa. 

41500-41895 Arsenale francese. In 
particolare: 

41500 Analoga alla 41010; ma in 
questo caso, tutte e tre le sezioni che 
costruiscono fregate, dueponti e tre- 
ponti, sono presenti. 

41603-41659 Fregata francese vista 
di prua. 

41660-41699 La stessa nave vista di 
poppa. 

41700-41759 Dueponti francese di 
prua. 

41760-41799 Lo stesso dueponti di 
poppa. 

41800-41859 “L’Orient” visto di 
prua. 

41860-41895 L’ ammiraglia francese 
vista di poppa. 

41900-41999 Questa sezione si occu¬ 
pa di trasformare il profilo del va¬ 
scello costruito nel caso in cui sia già 
stato disalberato, prima di essere co¬ 
involto in un ulteriore scontro. Que¬ 
sta sezione viene richiamata anche 
nel corso del combattimento, se si 


verifica un disalberamento. In parti¬ 
colare: 

41920-41930 Viene guarnito un al¬ 
bero di fortuna di dimensioni op¬ 
portune. 

42000-42020 Subroutine di resa. In 
particolare: 

42000 Se la routine casuale della riga 
seguente, ha già stabilito che la nave 
controllata dal computer non possa 
arrendersi, si esce dalla subroutine. 

42001 Questa routine casuale (pro¬ 
babilità superamento del test pari a 
2 su 3) è stata realizzata per evitare 
che troppe delle navi appartenenti 
alla flotta controllata dal calcolato¬ 
re, si arrendano in caso di difficoltà. 

42008 Viene determinata l’altezza a 
cui rizzare la bandiera di resa. Quin¬ 
di questa altezza viene modificata se 
il vascello è già stato disalberato. 

42009 Compare la bandiera bianca. 

42010 Per dare il tempo al giocatore 
di notare la bandiera bianca, viene 
aperto un ciclo di attesa all’interno 
del quale viene richiamata una su¬ 
broutine (47000), uguale in tutto e 
per tutto alla 24000, e che consente 
di far avanzare la palla di cannone 
eventualmente sparata dall’avversa- 
rio. Questa duplicazione si rende ne¬ 
cessaria poiché le subroutine non 
consentono chiamate esplicite re- 
cursive. 

42020 La variabile A di indice 0, 
viene inizializzata a —. 5, valore indi¬ 
cante, appunto la resa. 

43000-43010 Routine di servizio. 
Viene richiamata, aH’internodel nu¬ 
cleo centrale di controllo, quando si 
incontra una nave che si sia arresa in 
uno scontro precedente. 
44000-44999 Analogamente alla 
routine di cui sopra nel caso (assai 
poco probabile) di resa del forte 
francese. 

45000-45999 Questa subroutine si 
occupa di convertire il punteggio, o, 
meglio, i coefficienti attribuiti al col¬ 
po eventualmente andato a segno, 
nel caso in cui il bersaglio sia rappre¬ 
sentato dal forte francese e non da 
un vascello. 

46000-46999 Questo sottoprogram¬ 
ma si occupa di mostrare il punteg- 
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gio, calcolato per entrambe le flotte 
nella subroutine che lo richiama, in 
forma opportuna. In particolare: 
46010 Punteggio nel caso in cui il 
giocatore controlli la flotta francese. 
Il punteggio del giocatore appare 
per primo in modalità normale (il 
nero è il colore della flotta francese) 
seguito dal punteggio della flotta in¬ 
glese (controllata dal calcolatore) in 
modalità inversa. 

46020 Analogamente alla riga pre¬ 
cedente nell’ipotesi che il giocatore 
controlli la flotta inglese (in questo 
caso è il primo punteggio ad appari¬ 
re in REVERSE). 

47000-47050 Questa subroutine du¬ 
plica la 24000 (o, meglio, parte di 
essa) per poter permettere alle palle 
di cannone già in aria quando si ve¬ 
rifica un evento straordinario all’in¬ 
terno dello scontro (resa, affonda¬ 
mento o disalberamento) di prose¬ 
guire la loro marcia senza intoppi. 
48000-48100 Subroutine che riassu¬ 
me la situazione (in termini di danni 


subiti) di una intera flotta. Può esse¬ 
re richiamata, a richiesta del gioca¬ 
tore, nel corso della partita per co¬ 
noscere i danni subiti dalle proprie 
navi; inoltre, viene richiamata al ter¬ 
mine della partita per riassumere la 
situazione di entrambe le flotte. 
50000-50030 Sottoprogramma di 
gestione del disalberamento. In par¬ 
ticolare: 

50001 II test consente di stabilire se il 
vascello sia già stato disalberato, e 
di evitare quindi un ulteriore (im¬ 
possibile!) disalberamento. 

50002 La variabile A di indice 0 vie¬ 
ne inizializzata a — 3. Ciò sta ad 
indicare che il vascello è disalberato 
(e, quindi, non può, ad esempio, 
muoversi dalla posizione che occu¬ 
pava al momento dello scontro). 
50009 Dopo il ciclo di disalbera¬ 
mento si fa ricorso alla sezione di 
arsenale (41000) che rizza l’albero di 
fortuna. 

50010-50030 Routine di caduta del¬ 
l’alberatura. La routine si differen¬ 


zia da quella di affondamento solo 
nella inizializzazione. 

51000-51002 Nel caso in cui una na¬ 
ve abbia subito danni pari a 9/10 del 
limite massimo attribuitole, essa 
non è più in grado di governare, e 
non può quindi modificare la pro¬ 
pria rotta, anche se dovesse portarla 
ad arenarsi o a speronare altre navi 
(anche amiche). In particolare: 
51001 Se la nave è già stata disalbe¬ 
rata, essa non può già governare e, 
quindi, si esce dalla subroutine. 
52000-52010 Analoghe alle 43000- 
43010 per il caso in cui una nave sia 
disalberata. 

53000 Questa routine rizza fisica¬ 
mente l’albero di fortuna in caso di 
disalberamento. 

54000-54020 Questa routine per¬ 
mette di stabilire se la rotta della 
nave che il calcolatore intende ag¬ 
gredire ha una rotta compatibile con 
questa intenzione, non naviga, cioè, 
perpendicolarmente alla rotta tenu¬ 
ta dal vascello controllato dal calco¬ 
latore. (Fine). ■ 


Figura 1. // listato de! programma Abukir 1798. 


(La precedente puntata è apparsa su! n. 15) 


0 CLR :R$= ": 
ARO > = 12: RR < 2 = 17 : OH C 1 > -81 : CH < 2 > =37 : 0=, 

30 

5 0IMW*<25> ,c#<20> ,R£ •; 17 2 > ,A < 17 , 12 , 2 ) 

, B $ < 9 > D* < 13, 2 > , Rl< < 9,3 > 

10 PF=0 :FLRG=@ :CG=0:F0RI=1T025:W$<I>=L 
EFTf Pf , 1 > : NEXT :RS< 1 >--10 :RS<2> =5 :RS < 3> = 

11 OfiTRl ,2,41,2,3,2,3..6,1,4,7,0,0,0,9 

13 F0RI=1T09:F0RJ=1T03:READAK<I,J>sNEX 

T : NEXT 

15 RS<5>=8:REM ORTO NELSON 

2© DRtRS,19, 7 , 207,21 , 7,22,7,23,7,24,6 

30 REM DATA BRUEVS 

40 DRTRS,20,9,21,10,22.11,23,12,24,12, 
25,12,26,13,27,13,28,13,29,1 4 ,30,14,31, 

14 

50 DRTR32,16,23,17,26,17,28,17,30 
60 QF=0 : FORK= 1T02 : FORI = 1 TORÀ< K > :FOR J= i 
T02sRERDfl<I,J,K>:NEXT:NEXT:NEXT 
65 FORK= 1T02 : FOR I = 1TO17 : R (. I , © , K > =-1 : NE 
XT :NEXT 

70 Dfi T fì1,4,4,4,1.1,1,1,2,2,2,2.7,7.7,7 
, 7 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 ... 7 , 4 , 4,4 
8© F0RK=1T02:FORI=lTORR<K>sRERDRCI,0,K 
> : NEXT: NEXT 

85 DRTfi"fl COLLO","SUD-OVEST","SUD","SU 
D-EST”,"OVEST","ALL'ANCORA","EST" 


87 DATA"NORD-OVEST” , "NORD" , "NORD-EST" :: 
FORI=0TQ9:RERDBf<I>:NEXT 

95 DOTA" - - " 

100 DRTfl" J3 - timsit mt3T mmm I 

■" 

110 DATA "a JH U-~ I 

■ " 

12© data" sujsmmm ■ ìmowi w " 

130 drtr " m. • w «a_. _ m —" 

, "amanti hi " 

140 datr "m m m mm m w ", n smmm Jt 

— n il 

,r _____ 

150 DRTR M aii w r ~ ai i ", n am s 

a B" 

T60 DATA "SU: B _ — IH" , " SMi. 9 

a B" 

170 DATA"3W B ^a_“H=" , "Sili 

% b a_Ji" 

175 drtr "mm ■", "som bb" 

180 DRTR " ’HI" , " Mii Bi" . " SiilSII. 

185 DATA ” MMms 


190 FOR I =0TO20,: RERDCf- C I > : NEXT 
193 P•'0 > = 1 :P < 1 >=— 1 : GOSUB1 100© : GOSUB100 
00 

195 PR. I NT " 3” : PRI NT : FOR I =0TO20 : PF: I NT NT < 
I +2 > TRB ■; 1 >C$ <: I > : NEXT 
200 TP<0> = 1:TP<1>=—1 :FOR1 = 1T037:FORJK= 
0T 01 
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Seguito programma Abukir. 

210 P0KE32728+1+JK*960+TP< JK > *40,192:N 

EXT:NEXT 

215 PRINTld*C 1 > TRB < 14 > " 3ABUKIR 17981" 
220 P0KE32768.r240 :POKE32806,238 :P0KE33 
648,237 :P0KE33686,253 :FQRI = 1T021 
230 PRI NT WS < I +1 " J3 | ■" TRB C 38 > " a I ■" 

240 NEXT : FORKJ= 1T02 : FORI = 1TORR C K J !:■ : I Ffì 
< I, 0 , K J > <-„ 5RNDR < I, 0K J '> > ~ 1 ©THEN255 
245 IFR < I0 ,KJ><—20THEN255 
250 P0KE32768+RC 1,1,KJ>*40+A i. 1,2,KJ> ,C 
H C KJ "• 

255 HEXT:NEXT: I FCG=1THEN280 
269 PRINTW*<25>"DIGITARE ’R' PER MOOIF 
ICRRE LR R0TTR3":GOSUB12500:GOSUB12000 
265 PRINTW*<25>"'S' PER AVERE DANNI PR 
OPRIR FLOTTR3":GOSUB12500 :GQSUB12000 
267 PRINTW* 25 > " ■' V ' PER OTTENERE RRPPO 
RTD VEDETTED":GOSUB12500:GOSUB12000 
275 PR I NT UT 25 5 " ' Q ' PER SRLTRRE IL TUR 
NOI]" : GOSUB 12500 : GOSUB 12000 

279 PRINTUTC25>" ’X' PER INTERROMPERE L 
fl PARTITA!}" :GOSLJB12500 : GOSUB 12000 

280 IF C G=1T HENCG=0 :G0T0400 

281 IFCG=2THENCG=©:G0T0310 

283 IFK>17THEN500 
234 J=1 

285 IFJ>2THEN450 

286 I FR< K-, 0, j > <-0,5THEN400 

287 IFR <K,12,J ><1THEN233 

288 GOSUB8000:GOSUB3000:GOSUB608©:A<K, 

12, J !> =0 :1 FQG= 1THENGOTO22000 

290 GOSUB2000:GOT0400 

293 IFR <K,0,J>=-.5THENGOSUB43000:GOSUB 
3000:GOTO400 

234 IF A < K , 12 , J > =-3THENGOSUB52000 : GOSUB 
3000 :GQTQ400 

295 IFJOCKTHEN310 

296 IFR<K,12,J> =■-4THENGOSUB3000:GOSUB1 
6000 : GOSUB15000:G0T0298 

297 G0SUB3000 :G0SUBI6000 :G0SIJB20000 

298 GQSUB4000 :GOSUB6088:1FQG=1THENGOTO 
22000 

300 GOSUB2000:GOTO400 
310 I FA (. K ,0 , J> C0THEN480 
31 3 IFA<K,12,J?=—4THENGOSUB3000:GOSUB1 
6000 :GOSUB15000 ;GOT0316 

315 GOSUB300U:GOSUB16800 :GOSUB15000 :GO 
SUB 1000 : IFF3=1THENF3=0 :G0T0315 

316 G0SUB4000 : G0SLIB6000 

317 IFQG=1THENGOTO22000 
320 GOSUB2000 

400 GOSUB7000 * IFF9--1THENGOTO39000 
410 J=J-i-l : GGT0285 
450 K=K+1:G0T0283 
500 G 0 S I.J B46000 : G 0 T 0282 

999 END 

1000 REM SEMAFORO 

1005 F2=0 : F3«0 : PR I NT NT < 25 > " ' R ' , •' S •' , •' V ' 

, ■’ X ■' 0 ' Q ■' ?□" 

1010 GETR* : Ii R r ""THEN1© 1G 
1020 IFRTO " F: " A NO RI O" S " RITORTO " V " AHDR 
IO"X”RNDR1 ”0"THEN 101 0 
1 © 25 GQ3U B12©0 Gì 


Seguito programma Abukir. 


183 k) 

IFRÌ=" 

K"THEN11©0 





1035 

IFR1=" 

S"THEN1408 





1040 

1 FR 1 

V"THENI50O 





1050 

IFR:f=" 

X"7HEN1300 





IGEO 

I FRI ” 

o" i Ht. ni i: ! : ir 

M 




1 100 

1FFLAG 

:: ©thi n . 1 30 





1170 

FI_RG - 1 

:F0RU-1T03: 

F R 1 

•ìTNT 

r ; «3 j •• 

a”u 1 

■ "Bt 

:|J > ” 3 " 

: ' jij: : U!2 1 25©‘.-i 

: GO 

SUE' 1 

2000 : 

mi.. : : r 

11 8 © 

PRINTW 

! V.5.i" 1 -r- 

9 ? 

23" 



1 181 

GETRT: 

IFRF=""THEN 

118 

1 



1183 

R=VRL ■, 

RI ' : IFPC0OR 

R>9 

THET 

lisi 


1 184 

I FR C !<, 

0 , J :,.=0ORACK 

, 0 , 

J >=5 

TI IEN1 

137 

11 85 

GOSUB1 

4000 





1187 

1F < < < R 

ONT > RND C P 2 

>NB 

> RND 

< R SOR 

V ' " . 0 

J> > AND (. RO 

5 > >THENRa©: 

F2= 

1 :AC 

K , Il 2 

J ' 1 -7 ,2 

1188 

IFR=5THENF2=1sA<K 

, 12 

, J > = 



1189 

IFR=@ORR --5THEN00S 

UBI 

50100 

.■RETURN 

1199 

R C K , O , 

Jj =R:GOSUB1 

500 

0 sRE 

TUP.N 


1300i 

PRINT" 

iPRINTW*'. 

' •! ,‘i '* 

PROC 

ORATE 

V 1 u 

Nfi CAE 

■ SETTA 

E RIAVVOLGE 

TE- 

" :PR 

IN I " L 

p. " 

1310 

CG=2:1 

NPUT"PRONTI 

" ; R 

lif: 

LEFTT 

< R* , 


1 ><>”S" THEN 1300 

1320 OPErll, 1,2, "ABUKIR 1/8X1793" :FRINT 
#1,JsPRINT#1,K:PRINT#1,CK:PRINT#1,PO 
1338 PRINT#1,PKsPRI NT#1,F2sPRINT#1.GG: 
PRINT#1,PF 

1340 FOKU=1T02 : FQRV=1TO17 s FORZ- • • TO12sP 
RINT#1,A<V,2,U>:NEXT:NEXT:NEXT 
1370 CLOSE1 sPRINTWT < 10 > " VI IO 1 CONTI NL.IRR 
E »s : INPUTX#: IFLEFT*<Xf,1> = "S”THEN195 
1380 END 

1408 F 3 = 1 : IK=J : K K=K : G 0 S U B4800© s R=K l< : J = 
IK : RETURN 

150© F3=1 :KI=J:KK=K: IK=1 :1FJ=1THENIK=2 
1510 FORT = 1TOAA < IK.) s TG=0 : GT=0 sK-T : J_ IK 

: IFA«:T,0, IX>>ss8THENTG» 1 ; GT =1 ... 

1520 IFAO',0, IK>=-, 5THEN2$="SI E-' ARRE 
SR":TG=1 :GOTO1580 

1525 IFRCT,12,1K> =- 3ANDA<T,0,IK):=0THE 
N2$--- " E •' DISALBERATA" sTG=l : GOTO 1580 


1527 

I FR < 

T , 1 

2 , IK 

: > ~ 

-4RNDA < T, 

0, I 

k 

0 

THE 

N2$="l 

NON P 

uo r 

GOV 

'ER 

NRRE":TG= 

1 : G 

oro i 

cr 

80 

1530 

I FA C 

T , 0 

, Ilo 

=r — 

.7THEN2*= 

"E r 

3 FU 

IG 

GIT 

A" : GO 

T 0158 

0 








1548 

IFR< 

T , 0 

, IKO 


30THEN2T= 

"E * 

RFF 

0 

NDR 

TR" : Gì 

0T015 

90 








1550 

IFR< 

T , 0 

, IKO 

ss- 

10THEN.Z f= 

"SI 

E ' 

RREN 

fl TR" 

TG=1 









1560 

IF fl < 

T , 0 

, IRÒ 

-- 

20THENZ»- 

"SI 

E ' 

I 

NCR 

GLIRTA":TG 

= 1 








1580 

IFTG 

=1TRENI 

r.-T 

: J~II< sGOS 

UB3 

000 



1590 

GOSUB16 

0100 : 

IF 

GT=0THENP 

RIN 

TNT (. 

2 

5 > " 

LR Nfl’ 

'/E "2 

t ”□ 

" sGO 

SU 

B12500 :GO 

SUB 

1200 

10 


1600 

IFGT 

= it: 

HENK 

.=T 

: J= 11< : GOS 

UBI 

5000 



1610 

IFTG 

=1THENK 

=T 

: .J= I ! 1 : GOS 

U63 

0G0 : 

T 

G~0 

162© 

NEXT 

: J - 

RI :R 

s:K 

K : RETURN 






1999 RETURN 

2000 REM FINE PARTITR 

20 10 PG=0; PK=8 :PF <2 > =PF;FORV=1 TOC :VPC V 
>=0:IFV=CKTHEN2030 

2020 GOSUB33000:PK=PP+PF Ws :GOTO2040 
2030 GOSUB33000:PG=PP+PF<V > 

2040 NEXT 

2043 IFVP61>=0ORVP<2 > =0THEN2©55 
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Seguito programma Abukir. 

2045 IFPK<5@9RNDPO<500THEMRETURN 

2047 IFPK>=700QRPG>=700THEN2055 

2048 IF P K >=6000R P G >=6 0 0>flNDRBS<PK-PG> 

> - 5 0 T H E H2055 

2050 IFflBSFPK-PG><100THENRETURH 
2055 PFs=PK sPI=PG : XFGG=2THENPF=PG : PI = PK 
2060 I. FPF>P ITHENPRINTW* <25 > " Lfi FLOTTO 
FRANCESE HR VINT03" :GOSUB12500sGOSUB120 
00 

2070 IFP X >PFTHENPRINTUTF25 >"LR FLOTTA! 
INGLESE HR VINTCQ":GOSUB12500 :GOSUB1200 
0 

2080 FORIK=1T02:GOSUB43000:NENT:END 
3000 CHssPEEK<32768+fi<K, 1, J > *4©+fl < K, 2, J 

> > sCHssCH+128:1 FCH>255THENCH=sCH-256 

3010 POKE< 327S8+R<K.. 1 , J> *40+fìFK2 , J > > , 
CH:RETURN 

4000 REM RIPOSIZIONAMENTO NAVE 

4005 LF--0 : F1 =0 : FORVs* 1TO10 : GOSUB3000 : NE 
XT 

4006 IFF2=1THEHV0=RFK,1,J>:X0=fìFK,2,J> 
:GOTO4830 

400 7 RK=RBS F I NT F Fi F K0 . J 1 1 > + 1 

4010 GOSUB 13000 : V©=fì < K, 1 ... J > : X0=fi FK , 2 , J 

4020 Fi F K.. 1 r -J F =R F K . 1 . T > +DV : R 1 K.. 2.. J -■ — R K 
2 , J > +DX s IFDX=©fìNDDV=0THEN403© 

4025 G 0 S LI E5000 

4030 POKE032768+V0+40+X0>,R<K, 10,J> :R•: 
K, 1G , .T > =CH 

4035 IFF1 = 10RF2= 1THENR < K ,■ 10... J > ==32 : F2=0 
:F1=0 

4048 I FLF= 1 THENfl F K , 10.. J > =32 : RETURN 
4050 CH=CH< ,T > : I FF0= 1 RNDCH=81 THENF0=0 ; C 
H=215 

4060 IFF0= 1 RNDCH=S7THENF0=0 :CH=209 
4070 IFR F K, 0 , J > <0RNDF501 THENF5=0 : RETTI 
RN 

4100 POKE <32768+R <K.. 1J >*40+fiF K,2 , J> > , 
CH:FORV=1TO10 :GOSUB3000:NEXT 
4139 RETURN 

5000 F0=0 : F5=0 : CH==PBEK <32768+R < K , 1.. J > * 
40+fl<K,2,J>> 

5905 IFCH=32THENRETURN 
5010 IFCH=81THENJ0»1sGOSUB5800sRETURN 
5020 IFCH=87THENJ0=2 :GOSUB5800 : RETURN 
5030 IFCH=2200RCH=232ORCH=230THENG0SUE 
5700 s RETURN 

5040 IFCH=221ORCH=192ORCH=240ORCH=238O 
RCH=237ORCH=253THEN5600 sRETURN 
5058 IFR FK,3,J > = 1THENRETURM 
5060' I FR <K, 3 , J >=2THENfl FK , 6, 3 > =fl<K ,6 , J > 
+3+. 5-.-RND < K > 

5070 I FR < K , 3 , J > «3THENR F K, 6 , J > =R < K., 6 , J > 
+5+.5-RNDOO 

5080 R<K,0,J>=-10sPRINTUT<25 >"Lfi NAVE 
SI E •' ARENATA:]” s GOSUB 12500 : GOSUB 12000 
5090 REM K9=K : J9=J sGOS!.JB32000 :F5 = 1 : 
RETURN 

5099 F5=l:RETURN 

5599 RETURN 

5600 RF K , 0 , ..T > =-.. 7 : PRINTUTF 25F " LR f IRVE 
SI E •' DISIMPEGNRTFQ" :GOSUE12500 

5610 GOSUB12900 :LF=1 :RETURN 

5700 I FR F K.. 3 , J > = 1THENR < K . 6, J >=fi < K , 6 , S > 


Seguito programma Abukir. 

+S+.5-RNDF K> 

5710 I FAF K, 3 .3 > - ..21 MENA< K , 6, J > afiF K, » . T > 
+ 10+.. 5-RND<K> 

572U I FR C K, 3 .3 > • 3T HE MA •' K, 6 , J > - R < K, 6, 3 > 
+ 10+.. 5-RNDFK > 

5730 Avi"., 0, j:-=-20 SPRINT WT<25> "LA NAVE 
SI E'" INCRGLIATfO" s GOSUB 12500 : GOSUB 1200 

O 

5748 REM K9=K s J9=J sGOSÙB32©0esFG; 1s 
RE TU Ri I 

5799 F5=l:RETURN 

5 ; •• J F .1 -.1 : 1j;ì=l : V.9-HTFK1 ,. JF ; X0 = iT''K ,3 ) 
: GOSUB1700© 

33 38 fi F KG , r 6 , .T0 > sR F K0... 6 , JG > +R C K3 , T '* 2+ 
. 5 -Ri ID F K > 

5935 fi F K , 6 , .3 :> =fl F l< , 6, J > +fì F K03 Jtò 1+2+. 5 
••RND F K > 

5S'4© R F K i . J > = V0 : R F K ... 2... - J > =X0 
5350 KK=K:JJ=J:GOSUB5900:PRINTNTF 25)ZT 
" 3" s GOSUB12580s GOSUB12000 
5868 PRINTWT <25 >"HR SPEROHRTCQ"sGOSUB1 
2300 : GOSUB12000 

5378 KK=K0:JJ=J0:GOSUB5900SPRINTW*F25> 
ZT"□”:GOSUB12500 :GOSUB12000 

5899 K9=K:J9=JsOOSUB32000sK9=K0sJ9=J0: 
GOSUB32000 : RETURN 

5900 ZT=Rf FKK, J..J> : RETURN 

6800 QG=0 : X=fi F K ... 2!... I ) ; V=R F K... 1 J F : RK=Fl F K 
, 0 , -T > +1 : G0SUB31000 ; IFT1 =0THEN6510 
6003 IFT1=2THENT1=0 :RETURN 
6005 DX=—1 
60.10 IFDX> 1THEN6508 
6028 IFX+DXC10RX+DX>33THEN6499 
6030 DV=—1 :V=R <K,1,J > 

6040 IF0V>1THEN6499 
6850 IFV+DT'< 1 ORV+DV>21THEN6498 
6068 HC=PEEK F 32768+ F V+DV>«40+X+OX> IF F 
HC=S 10RHC=215 > RND J --2THENG0SUB21000 
6078 IF F HC =870RHC=209 RND J = 1THENQ0SUB2 
1000 

6080 IFOG=1THENRETURN 

6498 DV=DV+1;GOTO604© 

6499 DX=DX+1sGOTO6010 

6500 RETURN 

6510 DX=XDsIFX+XD<1ORX+XD>33THEN6550 
6520 DV=VD: IFV+VD<1ORV+VD>21THEN6550 
6530 HC=PEEKF32768+ <V+VD>440+X+XO>: IF < 
HC=810RHC=2151RNDJ=2THENG0SUB21000 
6535 IFQG=1THENRETURN 

6540 I F <HC=870RHC=209>RNOJ=1THENG0SUB2 
1000 

6545 IFQG=1THENRETURN 

655© DX=XS .“ IFX+XSC10RX+XS>33THENRETURN 
6560 DV=VS ; IFV+VS<10RV+VS>21THENRETURN 
6570 HC=PEEKF 32768+<V+VS> *40+X+XS>: IFF 
HC=810RHC=215>RNDJ-2THEN00SUB21008 
6575 IFQG=1THENRETURN 

6588 IFFHC=87ORHC=209>RNDJ*1 THE! I00SUB2 
1880 :RETURN 
6999 RETURN 
7008 REM FORTE 

7805 F9=0sIFQF=1THENGO8UB44008sRETURN 
7010 XF=20 :VF=4:FORDX=-2T02:F0RDV=-2T0 
2 : U IH=P E E K F 32768+• F V F+D V F + 4- 0+X F ■+ D X ) 

7020 I FCH 081THEN7040 
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Seguito programma Abukir. 

7*030 F9= 1 : J0.--OG sX9=XIF+DX : Y9—VF +DY : G0SU 
E17000 ; IFK0=18THEN784Q 

7035 I Ffi <K0, 8 ,■ 00 > ».. 5THEHF9-T0 

7040 NEXT:NÈXT 

7999 RETURN 

8000 GOSUB3000:GOSUB16000sIFfi<K,12,J>< 
2THEN3020 

8610 PR INTW* 25 > " Lfi NOVE Hfl PRESO R CO 
LLOZJ" : GOSUB 12500 : GuSUB 1 2000 : RETURN 
8020 PP. INTW* 25:> " Lfi NAVE E ' RLL 'RNCORR 
ffl" : GOSUB 1250O :: GOSUB 12000 : RETURN 
9000 FORJ=1T02sFORK=1TO17:IFfi<K,0,J5<0 
THEN9999 

9005 IFfi* < K,J >O"»THEN9999 
9010 2*= " FREGRIFI " : IFfi<K , 3, J > =2THENZ*= " 
DUEPONTX" 

9028 X Ffi K , 3 - J > =3THENZ*= " TREPONTI " 
9035 V*=" FRANCESE":IFJ=1THENV*=" INGL 
ESE " 

9040 fi*<K,J>=Z*+Y*+" N. "+STR*<K> 

9999 NEXT:NEXT:RETURN 

10000 PRINTTfiB < 10> " JSBfiTTfiGLIfi DI RB 
IJKI RI” 

10005 PRINTW*<3> 11 HRX PARTITE IN CORSO" 
; : INPUTRT 

10810 XFLEFT*<R*,1> = ”N"THEHGOSUB10500 : 
RETURN 

10020 IFLEFT*CR*,1>O"S »THEN10000 
10030 PR Ì NT " ;3" SPRINT "RI AVVOLGETE Lfi Cfi 
SSETTA CONTENENTE IL":PRINT"FILE OfiTX." 

10040 C6=2 s INPIJT " PRONI I " ; R* s I FLEFT * < R* 
, X >0"S"THEN 10030 

10050 OPENX , 1,0/ FlBUK IR 178/ X 798 " s IHPU 
T# 1 , J : INPUT# 1 , K : INPUT# 1 . CK : I NPIJT# 1 . PO 
10060 I NPUT# 1 , PK : 1 NPUT# 1... F2 s X NPUT# 1 ,GG 
sINPUT#1,PF;FORU=1T02sFORV=1TO17 
10070 FOR2=0TO 12 : INPUT#! ,FKV,Z,U> sNEXT 
: NEXT:NEXT 
10 X 09 CLOSE1 : RETURN 

10500 PR X NT LI* < 5 > " VUOI COMFlNDfiRE LFI FLO 
Tifi :":PRIHTW*< 8 >" £1* - INGLESE" 

10510 PRINTN*< 10 :> ” iS2i! - FRANCESE" :PRI 
NTW* 15::'" 3P. I SPOSTA : " s 
10520 GETR* : IFR*="»T HEN10520 
10530 I FR*<> “1"HNDR*<:> " 2 " THEN 10520 
10540 PRINTR* :GG-VRL<R*> :CK=1 :1FGG=lTH 
ENCK=2 
10550 RETURN 

11000 fi* <1,1> = »GOLIFfiH - CAPTAIN FOLEV 
”sfi*<2,1> = "2ERLOUS - CAPTAIN HOOD" 

11910 fi*15,1> = "VANGUARD - ADMIRAL NELS 
OH " sfi* f. 7,1 > = "BELLEROPHON" 

11028 ft*< 12, 1 = "CULLODEN" sfi*< 1 ,2) = "GUE 
RRIERE" :fi* < 3,2 > = »SPARTI RIE" 

11030 fi*7,2) = "L'ORIENT AMIRAL BRUEV 

S”: fi* C 8 ,2 ? = "FRRNKLIN" 

1104© R* <. 11,2 > = " GUILLAME TELL - CAPITA 
INE VILLENEUVE" 

11050 fi* < 13,2 > = " GENERAUX " t FORI = 1T02 s FO 
R J= 1 TOPI FI < I > : fi < J , 3,1 > =2 ; NEXT : NEXT 

11055 FORK— XT02 :FOR J=17 017 :A<J, 10,10=2 
2 sNEXT:NEXT 

11056 FORK-17 02 : FOR J = 1 TO 17 s fi >1J , 6 , K.-=© : 
NEXTtNEXT 


Seguito programma Abukir. 

1 1657 FORI. / X T02 : FOR J .= X TO 1 7 ; fi ■. J , X 1 ,1 • =K 
: NEXTsNEXT 

X 1053 r OR J -1 TO 1 ? : fi < J, 12 .. 2 : = 1 : NEXT 
1 1060 M< 7. 3 .2) a3SFORI a 14TO17*R< I.3 ,2 >* 
1 : NEH T FOR I1 T 02 : F ORIr I: TOFlfi < I > 

11 078 fi 1 J . 9 . £ > ..R v } . 3 , X > * 1 0 : NEXT : NEXT : G 
OSI IB3800 

1 ItìSU ! 0!" J=XTOfifl< 3 ■' sii* 1 ' I . 1 '■ = " 3 ” i fi*': I . I 
:■ i " b?” sNirxT 
X 199.9 RETURN 

X 30:00 Fv c 'Ul - 0723X033768 sPOKEUI , 32 sNEX 
T 

12500 FORUI-1TO1000 sNEXTsRETURN 
1 3000 ONRKGOTO13050,13010,1302©,13030, 
1 3040 ,13050, 13060,13070,13030,X 3090 
130 10 DV=1 s DX=-1 s GOT013i00 
1 3026 DV= 1 sOX=0:GOTO 1310© 

1 3030 DV= 1 :DX=1s GOTO1 3 1OO 
13040 DV=0 sDX=- 1 : GOTO1 3 100 
13050 DV=0 s DX=0s GOTO13100 
1 3060 DV=0s DX=1s GOTO 13100 
13070 DY=—1s DX=—1 :GOTO 13100 
13080 DV=—1s DX=0s GOTO13100 
13090 DY=— 1 :DX= .1. SGOTO13100 
13100 RETURN 

14000 ONfi<K, 0 , J > GOTO 14.1.00 , 14200 , 14300 , 
14400,14500,14600,14700,14300,14900 
14100 NT=2s NB=4 : RETURN 
14200 NT=3:NB=1 s RETURN 
14300 NT =6 s NB=2 : RE TI.JRN 
14400 NT=1s NB=7 s RETURN 
14500 RETURN 
14600 NT=9 :NB=3:RETURN 
14700 NT=4s HB=S:RETURN 
1 4380 NT;-7 s NB=9 s RETURN 
14900 NT =8 :NB= 6 :RETURN 
15000 C*=B* < fi<K,0,J> > 

15010 IFfi <K,1£,J> = 1 ORC*=B*<5 >THENC*=B* 
<5>:GOTO15030 

1501 3 IFfi <K,12,J>=-3THENC*="DISfiLBERRT 
fi" : GOTO15030 

15015 I Ffi ( K , 12 , J :> =20RC*=B* < 0 > THEHC*=B* 
<0>:GOTO15040 

15017 l Ffi <K,12,J > =—4THEHPRINTW*<25 >“Lfi 
NAVE NON PUÒ -' GOVERNARE^" : GOTO 15058 
15020 PRINTW* 125 > ”Lfi ROTTA flTTURLE E' r 
PER "C*"a n sGOTO15050 
15030 PRIHTW* <25 >"Lfi NAVE E' "C*"3"sGO 
TO15050 

15040 PRINTW*C25>"Lfi NOVE HA PRESO "C* 

15050 GOSUB12508 s GOSUB12806s RETURN 
16080 PR X NTW* < 25 > fi* <. K , J > " □" : GOSUB 12500 
sGOSUB12000 sRETURN 
17000 K0=1 

17005 IFK0>17THENRETURN 
17007 IFfi < K0,0,J©>.5THEN17020 
X 7010 IF <fi CK0,1,J0>=V9> AND <fi <K0,2,J0> = 
X9S THENRETURN 
17020 K0=K0+1 :GOTO17005 
18000 ONfi CK,0,J>GOTO13010,13020,18830, 
13048,13050,13040,13030,18020,13010 
13010 N1=3s N2=7:GOTO 1 S 100 
13020 N1=4s N2=6: GOTO 13100 
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Abukir 1798 


Seguilo programma Abukir. 

18030 H1 = 1:N2=9: GOTO 18100 
18040 N1 =2 :142=8 : GOT018180 
18050 NI*—1:N2=~1:GOTO18100 
18100 RETURN 

18000 GOSUB26000:GOSUB27000 
19818 X F < CF < J1 >>=F'T < J1 >* 10 > RHD < CF < J2> 

:>=pt < j 2 :> * 1 0 > > thenreturn 

19020 IFF < J1 > = 0 THEHG0SIJB23 0 0 0 
1903O IFF <J2>=0THEHGOSUB25000 
1 9040 J FF < 1 >O0THENCN* 1 :GOSUB24000 :1FG 
H=1THENRETURN 

19050 X FF<2 ><>0THENCN=2 :GO5UB24000:1FG 
H=1THENRETURN 
19060 GOTO 19010 
2000O REM CALCOLATORE 
20© 10 F'R=0 : F'B=0 : PT=0 : GOSUB14000 
20020 AK=R<K, 0, + 1 : GOSUB 13000 :G0SUB34 

000 :PR=PP:GOSUB35000:PR=PP 
20030 RK=NB+1 :GOSUB13000 :GOSUB34000:PB 
=PP :GOSUB35000 : PB=F'P 
20040 RK=NT +1 : GOSUB 13000 :GGSIJB34000 sPT 
=PP:GOSUB35000:PT=PP 
2O050 R=R< K0 ,’J : RH=RHD< TI > : PP=F'R : NR=R 

NO <. TI > : I FPB+NR>PR+RNTHENPF'=PB :R=HB :RN=N 
R 

20060 IFPT+RND<TI >>PP+NRTHENPP=PT.:R=NT 
20070 X FPP=49THENGOSUB38000 
2008G I FF'P=-99THEHR=5 

20090 R < K, 0, J > =R : I FR=5THENF2=1 : fl < K ..12, 
J> = 1 

20999 GOSUB15000 :RETURN 

21000 XFfl<K,0,J>«0THENRETURN 
21010 .J0=1 : IF J=1THENJ0=2 

21015 V9=V+DV:X9=X+DX:GOSUB17000 
21017 IFfi<K0,0,J0>C0THENRETURN 
21020 GOSUB18000 :1F<R<K0,0,J0>=N1ORA<K 
0,0,J0> =H2>THENRETURN 
2I103O QQ= 1 : RETURN 

22000 F8=0:LA=1:CR=1:J1=GG:J2=CK:K1=K: 
l<2=l<0 : QG=0 : OL=0 : IFJOJ1 THENK2=K ; K1 =K0 
22005 GH=G:CG=1:PRINT"3":J9=J1:K9=K1:Z 
=R <K1,3,J1>:GX=0:G0SUB41000:F<1>*0:F<2 > 
=0 

22007 GOSIJB54000 

22810 CF':! 1 >=0 : CF < 2 > =0 :J9=J2:K9=K2 : Z=A < 
K2,3,J2>:GOSUB41000 :DX< J 1> = 1:DX<J2>=-1 
22020 F'T< J1 > =fi<K1,3, J1 > sPT< J2>=A<K2,3, 
J2):RL <1> = 1 :RL <2> = 1 :OR<1> = 1 :OR <2> = 1 
22025 CSCJi:>=R<Kl,7, J1 > sCSCJ2>=fl<K2,7, 
..T2 > : CM C J1 ) =fì C K1, 8 , J1 > s CM C J2 > =fl C K2,8 , J2 > 
22030 V0 C 1 ;> = 18—PT < 1 > : V0 C 2 > = 18-PT < 2 > : XO 
CJ1>=S+PT<J1>:X0<J2>=33—PT<J2> 

22040 V0CJ1> =R < K1,9, J 1>:V0<J2>=R<K2,9, 
J2>:K9 C1>-0 :K9 <2>=0 
22045 IFRCK1,12, J1 > =—3THENK9C J1 :> = 1 
22047 IFRCK2,12,.J2> =—3THENK9CJ2 > = 1 
22050 FORII=1T038:PRINTW*<19>TRBC11 + 1 > 
" ir":NEXT:PRINT :FC=-3:FC=—RNDCTI> 

22060 FOR11 = 1TO18 :PRI NTNTC11>TREC1>DTC 
11 , ,T 1 > TRE <30 >D* <11, J2 > : NEXT 
22070 PR I NT NT < 20 > TRE C J1 :> A 7 < K1 , J1 > : BT=L 
EN<fl*<K2,J2>> 

22075 PRINTW* <21 >TRE: <41-BT-J2>fl*<K2, J2 
: FRI NT 


Seguito programma Abukir. 

22080 GOSUB190O0 

22110 fi < K2,6, J2 > =P C J2 > : fl < K1 ,6 , J1 > =P < J1 

22120 R <K1 , 7 , ,J 1 > =CS< J1 > : R <K2,7 , J2> =CS < 
J2>:fl<Kl,8,Jl>=CMCJ1>:fl< K2,8,J2> =CM< J2> 
22999 GOTO195 

23008 REM ACQUISIZIONE ORTI 
23010 I FF'EEK 051 >=52THF.NDL=+1 :1 Q= J1 :GO 
SUB26000:RETURN 

..•3015 IFF’EEK•: 151 :> =63THENJT=.J 1 :GOSUB420 
00 :RETURN 

."'3020 TFPFEh 1 151 • :THF*ini =- I :TQ= T1 :G0 
•UB2600O:RETURN 

. 3O30 I EF EBI '■ 151 > - 49 THENDL*. 1 : 10= J1 :G0 
3UB27600 :PE7UFT I 

23040 IFF'EEK< 151 > =50THENOL=-. 1 :IQ=J1 :G 
OSUB27000:RETURN 
23045 I FF'EEK 051 > 048THEHRETURN 
23050 F <J1> = 1 :X <J1>=X@<J1>:V<J1>=V0<J1 
>:CF<J1>=CF<J1> +1 

23060 RL <J1> =Lfl+RND<TI>*5-2.5 :C2<J1>=0 
2307© CflC J1 :> =CR+RND< TI *. 5-. 25 
23080 RETURN 
24000 REM 

24003 IFF <CN> =-1THENRETURN 
24005 RL=RL<CN>*itX 180 : V9=V<CN> 

24010 V0=Cfl<CN>*V0C CN > :P0KE<32767+<V <C 
N> -1 >*40+X < CN > > , C'2<CN > 

24015 XM=X<CN>+DX<CN>: X<CN >=X<CN >+0X <C 
H> 

24016 IFCN= J2THENXM=X0<CN >-XM 

24017 IFCN=J2THENV<CN> = I NT <V0<CN> + <GX< 
2* < V0T2 >* <COS< RL T2 ;■ > > *<XMT2> —XM*TRN< RL 

24019 IFCN=J2THEN24023 

24020 V<CN> = INT <V0<CN> + <GX<2* <V0T2>* <C 
OS < AL > T2 > ) > * < XM t'2 ) — XM*TRN < AL > > 

24023 IFflBS<V9—V<CN>»2THENC2<CN> =32sR 
ETURN 

24025 IFX <CN >< 1ORX<CN3'>390RY< CN ><=0THE 
NF < CN > =0:RETURN 

24028 IFV<CN > >=19THENGQSUB28000:F <CN > = 
0 :RETURN 

24030 C2<CN>=PEEK<32767+ <V<CN>-l>*40+X 
<CN>>:C=C2<CN > 

24035 IFC=99THENGOSIJB28000 :F<CH>=0 :RET 
UP.N 

24036 IFC=209ORC=86ORC=0ORC=32THEN2404 

I 

24038 GOSUB29000:1FGH=1THENRETURN 

24039 IFVF'=0THEN24042 

24040 P<RV>=F'<RV > +VP*PT<CN>-RND<K> + . 5 

24041 IFVP>1THENCS<RV>=CS<RV > +VP+PT<CN 
> :GOTO24043 

24842 CM < RV > =CM < RV > +VP*PT < CN V' 

24043 IPCM<RV >>=PT<RV>* 10RNDK9<RV > 01T 
HENGOSUB50000:F <CN> =0 :RETURN 

24044 IFP < RV ;■ >=. 9*L <RV>THENG0SUB51000 

24045 POKE<32767+ < V<CN>-1 >*40+X<CN) > ,C 
W :F<CN>=0:RETURN 

24047 POKE<32767+ <V0<CN > -1>*40+X0<CN> > 

r 3^ 

24050 POKE <32767+ < V <CN > -1>*40+X<CN>>,C 
< CN >:RETURN 
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Seguito programma Abukir. 

25000 REM CONTROLLO FUOCO CALCOLATORE 

25003 GT= I NT < RHD tK >*< i F'T < J25 * 10-CF C J2 > 
>/10 > >/2+22- < PT C. J2? -PT < J1 > 

25004 I FK9 C J1 > = 1THEHGT=GT-3* < F'T <J2>+1- 
PT < J 1 > > 

25005 AL<J2> = <RHD<K>#<45-P<J2> >X2-PT<J 
2 > > : IFAL < J2> <=0THÉNAL < J2 > = 1 

25010 AL=AL < .J2 > *ir/180: V0=SQR < < GT*G >/SI 
N<2#RL>> 

25020 HT=CGT/4 > *TAN<AL > 

25030 V0 <J2>-V0/CA<J2>:X<J2>=X0<J2>:V< 
J2>=V0 <J2):CF <J2>=CF<J2> +1 
25035 Cfi<J2>=Cfl<J2>+RHD<TI>#.3~.15 :IFC 
A < J2> > 1 ORCA t. J2 ><. 5THENCR<.J2> =. 75 
25040 F CJ2> = 1 :C2<J2>=0 

25045 AL < J2> =AL < J2> +RND■' TI >*3- 1.5 :1FAL 
<J2><=0THENRETURN 

25047 IFJF=J2ANDA<K1,12,J1> =-3THENCA<J 
2 ':>■■=„ 35 : AL f J2> =. 05 

25060 IF<P<J1>-P<J2>>=0>OR<<L<J2>—PiJ2 
> >>PT< J1 > >THENRETIJRN 
25070 JT-J2 :GOSUB42000 

25999 RETURN 

26000 REM DISPLAV ALZO 

26@10 LA=LA+DL: IFLA<1THENLA=45 
26020 IFLA>45THENLA= 1 

26025 LA=INT<LA> :AL*=STR*<LA> :AL*=LEFT 
*<AL*+" " ,6> 

26030 PRINTLI* < 22 >TAB <3 > " ALZO : " ALT : DL=0 
:RETURN 

27000 REM DISPLAY CARICA 
27010 CA=CA+DL:IFCA<.5THEHCA=1 
27020 IFCA>1THENCA=.5 

27025 CA= I NT C CA* 10 > / lo : CRT=STRT CA > : CA 
$=LEFT$<CA$+" ",6 > 

27030 PRI NTWf < 24 > T AB < 3 > " CAP. ICA: " CA* : DL 
=0:RETURN 

28G00 FORQQ=1T05:RC=PEEK<32767+<19-QQ > 
*40+X<CN>> 

28010 PONEC32767+<19-QQ)#4^+X<CN>>,42 
23020 POKE<32767+ <19-QQ >*40+X<CN >>,RC: 
NEXTQQ 

28999 RETURN 

29000 AV=1 :1FCN=1THEHAV=2 

29010 IFP <RV>>L<AV>THENGOSUB30000 : GH=1 
:RETURN 

29015 CW=S6:VP=1 :1FC=31ORC=87THENVP=0 
29020 IFV C CN>>=V0 CAV>THENVP=3 
29030 I FC= 160THENCW=209 
29037 IFC=32THENCW=87 

29040 IF JF<>0AND JF=AVTHENG0SUB45000 : RE 
TIJRH 

29999 RETURN 

30000 T=1 :K3=K:J3=J:IFAV<>JTHENK3=K0 :J 
3=J0 

30002 A K.30 ,.J3 ;:i =-30 

30005 IFJ:3=J2THEN J4=2 :GOTO30007 

30006 IFJ3=J1THENJ4=1 

30007 F J=0:1FJF>1ANDJF=J1THENFJ=-1 
3©009 IFT=18THENX<CN> = <J4-1>*29+6+FJ:G 

0SUB28000 :RETURN 

30010 PRINTNTCT >TAB <C J4-1>*29+1+FJ>" 

II" :NC=RV :GOSUB47000 
30020 FORV=1TO C18—T>:PRINTW*<T+V>TAB << 


Seguito programma Abukir. 

J4 — 1 >*29+1+FJ>D* <V.. ,T3 > : NEXT 
30030 T--T+1 : GOTO30009 
31000 T1=G:IFAK OHTHENT1=2 :RETURN 
31005 QNAKG0T031050,31010,31020,31030, 
31040,31050,31060,3107©,31080,31090 
31010 :<D=— 1 : VD=— 1 : G0T031 100 
31020 : -:D=- 1 : YO=0 : G0T031 100 
31030 XD=—1 :YD=1 :GOT031100 
31040 : :D=0:VD=-1 :C0T031100 
31050 T1 = 1 :GOT031100 
31060 XD=0:YD=1 :G0T031100 
31070 XD=1 :VD=—1:G0T031100 
31080 XD-1 :V D=0 :G 0T03110G 
31090 XD=1 : YD-1 :G0T031100 
31100 XS----X0 : YS=—VD ; RETURN 
32000 I FA < K9,6 .. J9 > <fl < K9,3.. T9 > *20 THEN RE 
TUEM 

32005 Q*="AFFONDATO":KK-K9:JJ=J9:GOSUB 
5900 :1FLEFT*<Z*,1> O"I"THENQ*="RFFONDRT 
R" 

32010 A < li9,0... J9 >=-30 : PR I NT N T < 25 > Z* " E •' 
" Q* " :r : GOSIJB12500 : GOSUB 12000 
32015 HC=RiK9,10,J9>:IFHC=215ORHC=209T 
HENHC=32 

32020 POKEC32763+A< I CS,1,J9>*40+A <K9,2, 
J9>>,HC:RETURN 
33000 PP=0:FORT=1TORÀ <V > 

33010 IFA<T,0,V > =-1THEN33999 
33015 IFACT,0,V>>=0THENYP < V> = 1 
33020 IFA<T,0,V>>=-0.5THENPP=PP+A<T,6, 
V ? :GOT033999 

33025 IFfiiT, 0, V> =—20ORR i. T,0, V>=~ 1 ©THEN 
F'pi-'FP-A i T.. 0 . Y > : GOT033999 
33030 PPssFP—fl < T , 0 , V > *R < T , 3 , V > 

33999 NEXT:RETURN 

34080 X=A i K , 2 , J > +DX : V=A < l<, 1 , J >+DY :HH=P 
EEK<32768+<V> *40+X> 

34010 IFHH=32THEHPP=100 :G0T034100 
3402© IFHH=220ORHH=232ORHH=230THENPP=— 
99 : RETURN 

34030 IF HH=87ORHH=203 > RNDCH< CK >«87THE 
NP P=—99 :G0T034100 

34048 1F C HH-=810RHH=215 > RNDCH < CK >=81 THE 
NPP-- -99 : GOT03 4100 

3405O IFHH=221ORHH=1920RHH=24@0RHH=238 
ORHH=237ORHH=253THENPP=0:G0T034100 
34060 IF<HH=87ORHH=209>RNDCH<CK>=81THE 
NPP=+49:GOT034100 

34070 IF<HH=81ORHH=215 >RNDCH<CK >=87THE 
NPP=+49:GOT034100 

34080 IFfl<K,3,J> = 1THENPP*100 :G0T034100 
34090 PP=—99 :RETURN 
34895 IFJ=2THEN34110 

34100 IFVC=6AND <X>18RNDX<22>THENPP=PP- 
10 

34105 IFPP=49THENRETURN 
34110 IFV<6THENPP=PP-<6-V> 

34120 IFX<17THENPP=PP—i17-X> 

34130 IFX>2.7THENPP=PP — < X-27> 

34140 IFY>12THENPP=PP-<Y~12> 

34999 RETURN 

35008 IFRAC100THENRETURN 

35003 GOSUB31000 :1 F'T' 1 =0THEN35510 

35005 DX=-1 
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Seguito 

programma Abukir. 


35010 

IFDX>1THEH35500 


35820 

IFX+OXC10RX+DX>33T HEN35499 


35030 

OV=-1 


35040 

IFDV>1THEH35499 


3505© 

IFV+DVC10RV+DV>21THEN35498 


35055 

HC=PEEK<32768+<V+DV>*40+X+DX> 


3506© 

IF <HC=81QRHC=215>ANDJ=2THENG0S 

UB 

36800 



35070 

IF < HC=87ORHC=209 > AND J= 1THEHCO': 

JB 

36000 



35498 

D V=0 V +1 : G 0 T03504- 0 


35499 

DX=OX+1 :GOTO3S010 


.35500 

RETURN 


35510 

DX=XD:IFX+XD<10RX+XD>33THEN355 

58 

35520 

DV=VD: IFV+VDC1ORV+VD>21THEH355 

50 

35525 

HC=FEEKC32768+ <V+VD> *4@+X+XD> 


35538 

IF < HC=810RHC=215 > ANDJ*»2THENG0S 

JB 

3fi000 : 

RETURN 


35540 

IF < HC=870RHC=209 > AND-T = 1 THE NCOS 

JB 

36000 ; 

RETURN 


35550 

DX=XS: XFX+XSC10RX+XS>33THENRET 

JR 

35568 

DV=VS: IFV+VSC10RV+VS>21THENRETUR 

H 



35570 

H C=P E E K < 32768+ C V+V S > # 4 0+X+X S > s 

IF 

C HC=81 

XiRHC=215 > AND J=2THENGO3UB36000 : R 

ET 

URN 



35580 

IF <HC=870RHC=209>ANDJ=1THENGOS 

JB 

36000 : 

RETURN 


35999 

RETURN 


36000 

IFAC K ,r 0 , J > = 0 T HENR E T U R N 


36010 

J0= 1 : IF.J= 1 THENJ0=2 


36015 

V9-V+DV s X9X■+• DX sGUSUE'l 7800 


36017 

I FA<KO,0,J 0>C0THEHRETURN 


36020 

GOSUB 18000 :1FC A < l<0 ,0, _T0> =HIDRA 

C K 

0 , 0 , J0 

:■ =N2 > THEWPP=FP— 1 : RETURN 


3603© 

GOSUB37000 :RETURN 


37000 

REM CONVENIENZA DELLO SCONTRO 


37010 

FP=PP+1R* C fi K, 3 , J > - A CKO, 3 , J0 > > 

-A 

C K, 6 , J 

>+fi <KO,6,J0>+RHDCT X > *5 :RETURN 


37999 

RETURN■ 


38800 

P9=f2* C fi< K, 3 , T > -fi C KO3... J0 > > -fi CK 

.r 6 

, -T > + A v 

<0 , 6 , JO ) ; IFP9<0THENPP=—39 


38999 

RETURN 


3900G 

F8=0:LA=1:CA=1 : J1=GG : J2=CK :K1 = 

Ks 

DL=© 11 

- IO-J1 THENK2=K 


39003 

IFJF<>GOTHENFC =- 5:FG=@ 


39004 

IFJF=GGTHENFC=0 ; FG=5+5*RND<T X > 


39885 

GH=0 :CG=1 sPRIHT"13" :F< 1 >=0:F<2> 

SS0 

39010 

I FJ 1 = 1THEH J9=J1 s K$=K 1 s Z=A < K1 , 3 

, J 

1> ; GOS 

J B41000 : ,JF = J2 : G0T039030 


3902© 

I FJ2= 1THEN J9=J2 : K9=K2 ; Z=fi <K2 .. 3 

, J 

3 :■ : GOS 

JB41000 : JF=J1 


39030 

CCJF> =97 : GOSUB400O0 : CF < 1>=0 : CF 

K. 2 

>=0 : DX 

..Ti > =• 1 :DX<: J2>=—1 


39040 

V0<1> = 16 : V0C2 > = 11 : XO< J1> = 10 : X0 

•:! J 

2> ~3© : 

SS<1>=0 : CS <2 >=0 : CM<1>=0 : CM<2 > =0 


39050 

IFJ1 = 1THENVOLT 1>=A<K1.9,Jl>sPT 

<: J 

1 > =fi C K 

1,3,J1> 


39855 

IFJ1=1THEHCS<J1>=A(K1,7,J1)sCM 

j 

l sfi <: K 

1 ,8, J1 > 


39060 

IF J2= 1THENV01. J2 > =fi < K2,9 , J2 > : PT 

j 

2 > =fiC I<2, 3 , J2> 


39065 

IFJ2= 1THENCS< J2> =fi < K27 , J2 > sCM 

<: j 


Seguito programma Abukir. 

2 > = fi C K £ , 8 , J 2 > 

39970 PT < JF > =5 : AL < 1 > = 1 : AL. < 2 > = 1 : OR < 1 > = 1 

39S80 V0C2 >- 100 : FOR11 = 1T038:PRINTW*C19 
> TRB < Il +1 > "ir" : NEXT : PR I NT 
39090 FORÌ I = .1TO18 : PR IHTU* < 11> TRB < 1 > D* C 
11,T 1 >TRB <29 :> 0#< 11, J2> : HEKT 
39093 IFJ2=1THENAAT C J2 >=AT <K2J2 > sARI < 
J1 > = " BATTER I fi FRANCESE " 

39095 IFJ1 = 1THENAAT < J1 > *=A*< K1 , J1 > : RAT < 
J2> = "BATTER IA FRANCESE " 

39100 PRINTW$<20>TAB <J1>Afi*<J1>:BT=LEN 
< AA:f C J2 > > : PR X NT NT C 21 > TRB C 41-BT-J2 > RAT < J 
2 5 

39110 GOSUB19000 

39180 I FJ2« 1 THEHfi C K2,6, J2>=P < J2 > : PF=P C 
J1 > : fi<K2.7,J2>=CSC J2>: ACK2,8,J2>=CM<J£> 


39190 

X FJ1 = 1THENA 

<K 1 ,6 , J1 > =P •: J1 > s PF=P < 

J2>sACK 

1,7,J1>=CS< 

Jl> : A <. K1 ,3 , J1 > = CM <■. Jl> 

39999 

JF=0sGOTO19 

ET 

40000 

L'.: JF> = 1000 : 

PCJF>=PF 

40603 

FORH --1T07 : DT < H.. JF > = ” " : N 

EXT 



49005 

DT C 8 ... JF > = " 

Si P 1 " :DT C 9, JF> = 

400 1 0 

0$< 10., JF> = " 

. .1.» ":D$<11,JF> 

35 M J3 

Il M 


40020 

DT <12,JF > = " 

a «sai ■ " 

40025 

DT <13,JF> = " 

a > " ■ ":D$(14,J 

F > = " 

«I i " 


40030 

BT \ 15JF > = " 

a ma m " : dici e 

,JF>=" 

n]3r HHp 

40048 

DT< 17,.TF> = " 

a~ p. " 

40850 

D:f< 18, JF> = ” 

ar H" 

40099 

RETURN 


4 1 000 

L<J9>=Z*20: 

P C J 9 > = A < K 9 ,6 , J 3 > : 0 N J 9 

G0T041010.41560 


41 0 1 0 

CCJ9>=81:GN 

ZGOT041100,41200,4130 

41200 

REM DUEPONTI INGLESE 

41203 

F0RH=1T04:DÌ<H,J9>=" "sN 

EXT 



41205 

D^<5, J9>==" 

1 " :DT< 6 , J3>==" 

- 1 - 

II 


41207 

IF G X = 1T H E N 413 0 0 

41210 

0$C7,J9 > = " 

il r Pg " :DTC 8 , J9> = 

" a 

M 


41220 

D$(9, ..J9> = " 

IW -’PB " : DT C 10 , J9 > 

==" & 

" 


41225 

0$ RII., J9 > = " 

a P ":DT C 12 ,J 9 

>=" 

'W " 


41230 

DSC 13,J9> = " 

a P ":DT C14,J9 

> = " S 

1 P " 


41235 

DTC 15..J9> = " 

a_-+-__p " 

41240 

UT <16,J9> = " 

\ . Si ";DTC17,J9 

> = " 1 . a. 

1 M " 


41250 

DK1S ,J9> = "- 

■s a i «r " 

41299 

GOTO41900 


41300 

DT<7,J9>=" 

W 1 'Pi " s D* < 8 , J9 > = 

" a 

1 P " 


41310 

DTC3, J9> = " 

sr ' -«P " :DTC 10 , J3> 

=" ar— 

-i -'HP " 


41320 

D$C11,J9>=" 

a |~\ P " :DTC12,.J9 

>=" :r 

1 ^ " 
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Seguito programma Abukir. 


41330 

a 

DiC 13,JSO = " 

1 H " 

-i .._...i.imi 

' : Di e 14,J9 


41340 

Die 15,J9> = " 

a i i * 


41350 
® " IhIÌm 

Die 16,J9> = " 

1 M " 

! EIm m i» iJ*HI 

' : Die 17,J9 

4136© 

41399 

Die 13,JSO = " 
GOTO41300 

Ma i w 

! 

41500 

CeJ9>=87i0N2 

30T041600, 

11708,4180 

41600 

REM FREGATA 

-RRNCESE 


41603 

F0RH=1T09:DÌ 

;h,J9>=" 

" sN 

EXT 

41605 

Die 10 ,J9>=" 
-f- 

Zi: 1 1 

" ; Di e 11 .39 

41607 

IFGX=1THEN41668 


41620 

Die 12. .19> = " 

ar —mì 

n 

41625 

13,. J9>s" 

li ” 

a ■ 

" :Die14,J9 

41630 

;■=" a 

Die 15,J9> = " 

4 »i " 

a ■ 

" ; Di e 16,J9 

' 41640 

Die 17, J9 

!» ! 4 


41650 

41659 

Die 18,J9> = " 
G0T041908 

• 1 


41660 

Di e 1 2 ,J9 > = " 

ar i mi 

II 

41670 

>=" a- 

Die 13,J9> = " 
— 1 — ■ " 

a i i 

" :Die14,19 

41675 

Die 15, ,I9> = " 

mm ■ " 

a i ■ 

": Di e 16 ,J9 

41680 

Di'. 17, J9:> = " 

b 1 »! 


4 1690 
41699 

Di < 18J9 = M 
GOT041900 

i 


41700 

REM DUEPONTI 

FRANCESE 


41 703 

FORH== 1T04 s Di 

en,J9)=" 

11 sH 

EXT 

41705 

-4— 

Di<5,J9>=" 

II 

m » 1 " : 

Die 6 ,J9 > = " 

41707 

IFGX=1THEN41 

760 


4171 © 

H «j 

M 

Die7,J9>=" 

m " 

jijpr muwi » 

: Di e 8 , J9 :> 

41720 

= " ar 

Die9,J9>=" 

ar .-Mi " 

5 dì e io,J9> 

41725 
:>*■" ; W 

Dieii,J9>=" 

. * . H* " 

a m 

" :: Di e 12, J 9 

41730 

>=" a 

Di 1 <• 13 .r JS > = ” 

1 w 11 

a a 

":Di e 14,,19 

41735 

Die 15,.J9::' = " 

a —4— i 

II 

41740 
" U 1 

□*< 16. ,J9:>rr" 

mi 

Ì«H Hi 1 W «1 " > 

Die 17,J9> = 

41750 

Die 18,J9>=" 

• ••._ } " 


41759 

GOTO41980 



41760 

" a 

Die7,J9>=" 

| in » 

ar i Mi ' 

: Di e 3, J9= 

41770 

=". ar~ 

DIO, J9> = " 

-4 —.^nm •• 

.ar-rMi 1 

: Di e 10 ,J 9 ? 

41775 

>=■" ar 

Dieìi , J9>=" 

1 Mi " 

a ,/~r\ m 

" : Di e. 12 , J9 

41780 

>=" a 

Die 13,J9> = " 

1 ■ " 

"l_ ..| .|fj 

" :Die14,J3 


41785 

Di e 1 5 , J9 > = " 

a mmmì » 

II 

41790 

> = " 1 . 

Diei6,.J9> = " 

1 «i " 

im HI il':':* « mi 

" :Die17,J9 

41795 
41799 

Die 18,J9>=" 
GOT041900 

" L 


4 1800 

REM TREPONTI 

FRANCESE 



Seguito programma Abukir. 


41 u' ; 

DÌ e 1 , Ty 

p - 1 i 

j » 1 J ' . »f 

»IR I 

" : Di e 3 . Ty ■ 

| 


41807 

41810 

IFGX=1THEN41860 
Die 4, J9 ::'=•■ ar 

^1! " 

:Die5,J9>= 

a 

41820 

■ 

D$(6, J9::» = u .ar- 

- -*p 

: Di e 7, ,T9 > = 

& 

41825 

"Pi " :F0RH=8T09 

Di e H,J 9> = " a 

OH “ 

: NENT :Di e 1 

iJ9 > = " 
41827 

ar — 'mh n 

Dien,j9>=” a 

m 


41830 

Diei2,J9>=" a 

1 n 

" : Di e 13,J9 

=" a 

41835 

._4__ m " 

D$ < 14.- J 9 y = " ,J3 

1 1 

":Die15,J9 

= " U. 

41840 

1 . W " 

Die 16,,19 U. 1 

■ mi - 

D i e 17 , J 9 > =• 

4 1 

41850' 

41859 

41860 

.1 " 

Die 18,J9> = " N_ | 
GOTO41300 

Die4 , J9 :■ — " ir 1 

u 

; Di e. 5 , 39 = 


• a i ■ " 

41S70 D*<6,J9>=" 


T 


41875 D*<8,J9>=" 3 I 
" ja m ":D:ta0,J9) = " 

41877 0*<11, J9:> = " a-1-- 


" :DÌ<?,J9>= 
": 0$e9, J9 >= 

' | 'HjB " 


41885 

Die 14, ,J9> = 

= " L. 

alia. ; " 

41830 

Die 16 ,39 > = 

L 1 

«J " . 

41895 

Diei8,J9>= 

41380 

IFAeK9,12, 


41830 F0RH= 1 £T01 3 : Di e H J9 > = " 3 I ■ 
":HEKT 

"31 i 9 " :Die 15, Ty 


I..I.J " : DI- < 17.. J 3 > = 


2 : Di<KI , J9!> = " " : NEXT 

41910 IFfii. K9 , 12, J9> =-3THENDÌ < 16-2, -J9 > = 
” I 

41920 IFR e K9 ., 12 ., J9 > =-3RND2= 1 THENDi < 17. 

2,J9>=" 4 

41930 IFAeK3, 12 ..J9>=-3RNDZO 1 THENDi< 17 
-2,J9> = " _I " 

41999 RETURN 

42000 IFF 8 =1THEHRETURH 

42001 IFRNDCTIX.33RNDJT=J2THENF8=1 :RE 
TURN 

42002 RV=1 :1FJT=1THEHRV=2 

42803 GH= 1 : K3=K : J3=J s IFAV=JTHENK3=K.0 ; J 
3=J0 

42005 IFJ3=J2THENJ4=2:GOTO42007 

42006 IF-J3=J 1THEHJ4= 1 

42007 F <J3>=-1 :FJ=0:1FJF>1THENFJ=@ 

42008 TP=RS<PT<J3>>:lFfl<K3,12,J3>=-3TH 

ENTP=15-PT eJ3 > 

42009 F'R I NT Hi < TP > TRE: < < J4-1 > *29+1+FJ > " 

a m 

42010 F0RU= 1T01 0 : HC=RV : GOSUB47800 : NEXT 
42015 I F JFO0RHD.JF=J3THEHQF= 1 : RETURN 
42020 R <: K3,0, J3 > =-. 5 : RETURN 

43000 GOSUB3000 : GOSIJB16000 
43010. PRINTW*<25>"LR NAVE SI E-' ARRESA 
■ " :GOSUB12500:GOSUB12000 : RETURN 
44000 GOSUB3000 

44010 PRIHTWÌ<25>" IL FORTE SI E'" RRRES 
03" :GOSUB12500 :GOSUB12000 :RETURN 
45000 IFVP=3THENVP=0:RETURN 
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Seguilo programma Abukir. 

45010 IFVP=1THENVP=3 :RETURN 

45999 RETURN 

46000 GF'= INT < PG* 100 > /100 : KPm I NT <PK*1 00 
>/100 

460y5 IFGG=1THEH4602© 

46010 F’R INTW*<25 > " PIJNTEGG10 : " GP " -.3" KP 
"in" :GOSIJB12500 sGOSUB 12500 :G0T046999 

46020 F'RINTW*<25> " PIJNTEGG 10 :3" GP" " t: 

P " □ " : G G S U B12500 : G 0 8 U B12500 

46999 GOSUB12000 :RETURN 

47000 IFF CNC > =0THENRETURN 

47005 AL=fiL < NC > *ir/180 

4701.0 V0=C fi C NO * V0 C CN> : POKE < 32767+ < V C N 
C > -1 > * 4 0+X < N C > > , C £ < N C > 

47015 XM=XCNC>+DX<NC >:X<NC >=X<NC> +DX<H 
O 

47016 IFNC=J2THEN,'KM=X0 < NC > -XM 

47©17 IFNOJ2THENV<NC > = INTC V©<NC > + <G/< 
2* < V0T2> #COS < fiL >T2 > > >» < XMT2 >.KH*TfiPI FlL. 


47©19 IF NC=J2T H E N4 7825 


47 

020 

V<NO = INTeV0<NO + 

<G/<2stKV 

0T2>*CC 

ose 

RL> 

1-2 > > >*<XMt2>-XM#TftN<FlL> > 



47 

025 

IFX<NO<X0< J1>0RX 

<NO>X0< 

,J 2 : 

:■ THEFI 

F(IC)=i 

0 :RETURN 




47 

028 

IF V < NC > >--19THENG0 

SUB28009 

:F' 

:nc> = 

0 :R 

ETURN 




47 

030 

C2 < NO aPEEK <32767 

. •■.vai'. > 

1 >s 

N40+X 

C NC 

> > ; 1 

C=C2eNC> 




47 

035 

IFC=99THENG0SUB28 

000 :F <NC 

> =f 

:i : RE i 

IJRN 





47 

047 

POKE<32767+<V0CNC 

>-l>*40+ 

X0 1 

INO > 

47 

050 

RiJKE e 3271»7 + F V 1 Flc > 

- 1 > + 40+N 

< NC 

; > >, c 

e nc 

> :RI 

ETURFI 




48 

000 

FORT-1 TOPI FK HO :TG 

=0 : K=T ; J 

= IH 


48 

005 

IFFKT, 0,11< > >0 AND fi 

<T , 12., IK 

> >s 

=0THE 


N TG = 1 : G 0 T 04 B © 7 0 

48010 I Ffi T ,0 , IK > =.. 5THENC$= " SI E ' fiRR 

ESPI" :TG=1 :GOTO48090 

48015 IFfiCT .r 12IK > =—SflNDfi C T0 , IK >>=@TH 
ENC$="E' DISfiLBERRT fi" :TG=1 : GOTO48090 

48017 I Ffi<T., 12., IK > -.--4 FINO fi C T , 0 , IK >>=©TH 
ENCT="NON PUÒ ' GOVERNARE":TG=1:GOTO4809 
0 

48020 IFfi<T, 0, IK > ~~. 7THENCi : = " E ' SFUGGI 
Tfi":GOTO48090 

48030 1 Ffi C T , 0., 1K >--30THENCT = " E •' OFF OH D 

FlTfi" 

48040 I FfiCT0 , IK>=-10THENC*= " SI E •' fiRE 
NFlTfi" sTG~ 1 

48050 I Ffi < T , 0,1K > =—20THENC-T-- " SI E ' I NC 
fiGLIRTFl" : TG- 1 

48060 G0T048090 

48070 IFFK T , 6., I K > =0THENCÌ : - " NON Hfi SUB Ì 
TO DANNI":GOTO48090 

48080 C$=" Hfi SUBITO D FI FIN I PER " + STR-T L I FI 
T <fi< T ,6 , IK > > > + " / " +STR* < fi < T, 3 , 11< > *30 > 

48090 IFTG=1THENK=T:J=IK:GOSUB3000 

48095 GOSUB 16000 : PRINTW*<25 > " Lfi NAVE 11 
Cf"□":G0SUBI2500 ;G0SUBI2000 

48097 IFTG=1THENK=T:J = IK:GOSUB3000:TG= 
0 

48100 HENT:RETURN 


Seguito programma Abukir. 

50000 

T=1 :H 

3=K : ,13=J : IF fi V < > J T HE FI K 3 - K @ : J 

3=J 0 



5000 1 

IFfi'T 

3., 12 , .1 3 > =- 3THENRE TUR N 

50002 

fi K3 ,r 

12,J3>=—3 :K9<RV> = 1 

50005 

IFJ3= 

J2THEFI J4=2 GOTO50007 

500O6 

IFJ3= 

J1 THEFI J4=l 

58807 

FJ=@ 

I F.JF> 1 fi FI Li JF — J1THENF J=-1 

56009 

IFT=1 

7 - P T e fi V > T H E FU 9=J 3 : K 9=K 3 :2 .= P 

T < J 3 > : 

30SUB4 

1900 :GOSUB53000:RETURN 

500 10 

PRIMTMtCT> TRE<C J4-1>*29+1+FJ>" 


II" : NC 

=fiV : GOSIJB47800 

50020 

FORV= 

1 TO < 17-T-PT C RV > > : PR I NT.14 ■ T+ 

V > TflB C 

IJ4-1; 

*29+1 +F,T > D L C V , J3 > : NEXT 

50U38 

T=T +1 

:GOTO50009 

5 1 000 

K3=K 

J3== J s. IFfi V<> J T HE FIK 3=K O :J3*J© 

51001 

I Ffi LF 

3 , 12J3 > =- 3THENRETURN 

51002 

FKK3, 

12., J3 > :--4 : RETURN 

52006 

GOSUE 

3O00 :G0SUB16000 

52010 

PRIFITWf C25> "Lfi NAVE E ' DISALBERA 

TFQ" : G 

OSUBIC 

508 : UUSUB12000 zRELTURM 

53800 

FORI I 

= 1 TO 1 8 : PR I II rw* e 11 > TflB C L J4-1 

>*29+1+FJ > 01 

C I I , J4>:NEXT:RETURN 

54000 

Kfl=fi< 

K1,0, .J1 > : GX= 1 : FGR17= 1T03 

54010 

IFflKc: 

Kfi., 17 > =FKK2O.. J2 > THENGX=© 

54020 

NEXT : 

RETURN 

L i Bt-B. : 

? i mino 1 

ì gr -3.+ i r_ i 

0 

: 1 

HOME =i. URL'. 19> 


Otr 

CRSRT =CHR#C17> 

1 00 

: 1 

REVERSE =CHR$,< 18> 


1 

SHIFT REVERSE =CHRT 146 > 


1 

REVERSE —C HP-t 18 > 


1 

SHIFT REVERSE =CHETL146 > 

110 

: 1 

REVERSE =CHR$<18> 


1 

SHIFT REVERSE «CHR*a46> 


1 

REVERSE =CHRt <18 > 


1 

SHIFT REVERSE =CHR*<146> 

120 

: 1 

REVERSE =CHR*.<18> 


1 

SHIFT REVERSE =CHR*<146> 

13© 

: 1 

REVERSE =CHRf•18> 


1 

SHIFT REVERSE =CHR$<146> 


1 

REVERSE =CHR#<18> 


1 

SHIFT REVERSE =CHRT.146> 


1 

REVERSE =CHRT C18> 


1 

SHIFT REVERSE =CHR*C146> 

140 

: 1 

REVERSE =CHR#<18> 


1 

SHIFT REVERSE =CHRT'C 146> 


1 

RE VERSE =C:HRT < 18 > 


.1 

SHIFT REVERSE =CHR*<146> 


1 

REVERSE =CHR*<18> 


1 

SHIFT REVERSE =CHR*<146> 

150 

: 1 

REVERSE =CHR*<18> 


i 

SHIFT REVERSE =CHR$C146> 


i 

RE VERSE =CHR-f < 18> 


i 

SHIFT REVERSE =CHPTL .146> 


i 

REVERSE =CHRS <18> 


99 















1 

SHIFT REVERSE =CHR$<146) 



1 

REVERSE =CHR*<18> 



1 

SHIFT REVERSE =CHR$<146) 

168 

- 

1 

REVERSE =CHR-t 18 > 



1 

SHIFT RE VERSE =CHR* 146 ) 



1 

REVERSE =CHR$<18> 



1 

SHIFT REVERSE =CHRt<146) 



1 

RE VERSE =CHRÌ 18 ) 



1 

SHIFT REVERSE =CHR*«146> 



1 

REVERSE =CHRT C13 ) 



1 

SHIFT REVERSE =CHR*<:146> 

170 

; 

1 

RE VERSE =CHR$ C 1S 



1 

SHIFT REVERSE =CHRf<146) 



1 

REVERSE =CHRT<18) 



1 

SHIFT REVERSE =CHR*<146) 



1 

REVERSE =CHRfC1S) 



1 

SHIFT REVERSE =CHR$C146) 



1 

REVERSE =CHR$<1S > 



1 

SHIFT REVERSE =CHR*<146> 

175 

; 

1 

REVERSE =CHR$<18) 



1 

SHIFT RE VERSE =CHRT 146) 



1 

REVERSE =CHRf<18 > 



1 

SHIFT REVERSE =CHR$< 146> 

180 

; 

1 

REVERSE =CHR$ < 18 > 



1 

SHIFT REVERSE =CHR»<146> 



1 

REVERSE =CHR#<18> 



1 

SHIFT REVERSE ==CHR*< 146) 



1 

RE VERSE --CHRT < 18 > 



1 

SHIFT REVERSE =CHR*<146> 

J Qffì 

» 

1 

REVERSE =CHR$C18> 



1 

SHIFT REVERSE =CHR$<146> 

195 

: 

1 

SHIFT HOHE =CHRT<147> 

215 

; 

1 

REVERSE =CHRt<18), 



1 

SHIFT REVERSE =CHfbo46> 

230 

; 

1 

REVERSE =CHR#<18) 



1 

SHIFT REVERSE =CHR$<146> 



1 

REVERSE sCHR#< 1 8> 



1 

SHIFT REVERSE »CHR*<146) 

260 

: 

1 

SHIFT CRSRT =CHR*<145) 

265 

: 

1 

SHIFT CRSRT =CHR$ < 145 ? 

267 

; 

1 

SHIFT CRSRT --CHRTC 145) 

275 

■ 

1 

H I FT CRSRT C l-i R $ < 145 ) 

279 

: 

1 

SHIFT CRSRT =CHR:fc < 1 45> 

:l 005 

: 

1 

SHIFT CRSRT =CHF.*< 1.45'.:' 

1170 


1 

REVERSE =CHR* <iQ> 



.1 

■ HIF1 REVERSE =CHFT • 1 46 > 



"J 

SHIFT CRSRT' -CHRT < 145> 

11 e© 

: 

1 

SHIFT CRSRT =CHR$< 145) 


1300 


1 

SHIFT 

HOME =CHRT < 147 ) 

1590 


1 

SHIFT 

CRSRT =CHR*<145> 

2060 


1 

SHIFT 

CRSRT -C HR f 145 > 

2070 


1 

SHIFT 

CRSRT =CHR*< 145!:' 

5088 


1 

SHIFT 

CRSRT «CHR*<145 ) 

5600 


1 

SHIFT 

CRSRT =CHR$ '. 14 5 ) 

5730 


1 

SH I FT 

CRSRT ;~CHR4 : U 45 > 

5850 


1 

SHIFT 

CRSRT =CHR*<145> 

5860 


1 

SHIFT 

CRSRT ;=CHRT< 1 45 > 

5870 


1 

SHIFT 

CRSRT —CHRf <145) 

8010 


1 

SHIFT 

CRSRT =CHRT'.: 145> 

8020 


1 

SH I FT 

CRSRT =CHRTC145"■ 

1 0000 


1 

SHIFT 

HOME ==CHRT':: 147) 



1 

REVER 

SE =CHRT< 18) 



1 

SHIFT 

REVERSE =CHRT<146) 

:i 0030 

= 

1 

SHIFT 

HOME =CHR$<147) 

1 0500 

; 

1 

REVER 

SE =CHRT') 1 8) 



1 

SHIFT 

RE VERSE --CHRT < 146 > 

1 05 1 0 

- 

1 

REVER 

SE =CHR:f 18 ) 



1 

SHIFT 

REVERSE =CHR*<146) 



1 

REVER 

3E -CHRT < 18) 

1 1080 

; 

1 

REVER 

3E ssCHR#< 18> 



1 

SHIFT 

REVERSE =CHRT 146 > 

15W17 

: 

1 

SHIFT 

CRSRT ==CHRT C 145 > 

1 5020 

■’ 

1 

SHIFT 

.CRSRT =CHR:f 145) 

15030 

: 

1 

SHIFT 

CRSRT -CHRf ■:! 145) 

15040 

: 

1 

SH I FT 

CRSRT =CHR*<145) 

1 6000 

: 

1 

SHIFT 

CRSRT -CHRT'. 145) 

22005 

: 

1 

SHIFT 

HOME stCHR# 147 > 

22050 

: 

1 

SH I FT 

CRSR-i- =CHRT 157) 

300 1 0 

: 

1 

SHIFT 

CRSR*- -t-CHRT i. 157) 

32010 

: 

1 

SHIFT 

CRSRT --CHRT C 145) 

39005 

= 

1 

SHIFT 

HOME =CHR$(147) 

39080 

: 

1 

SHIFT 

CRSR'r- =CHRTC 157) 

40005 

: 

1 

REVER 

3E »CHR*<18> 



1 

SHIFT 

REVERSE =CHRT<146) 
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4001© : 

1 

REVERSE «CHRf<ISO 


1 

SHIFT REVERSE «CHRf<146) 

40020 : 

1 

REVERSE «CHRf<1S> 


1 

SHIFT REVERSE «CHRf<146) 


1 

REVERSE «CHRf<18> 


1 

SHIFT REVERSE «CHRf<146) 

40025 : 

1 

REVERSE «CHRf< ISO 


1 

SHIFT REVERSE «CHRf<146) 


1 

REVERSE =CHR*(18) 


1 

SHIFT REVERSE «CHRf<146) 

40030 s 

1 

REVERSE «CHRf< ISO 


1 

SHIFT REVERSE «CHRf<146) 


1 

RE VERSE «CHRf < 18> 


1 

SHIFT REVERSE «CHRf<146) 


1 

REVERSE «CHRf< 18) 


1 

SHIFT REVERSE «CHRf< 146) 


1 

REVERSE =CHRf<18) 


1 

SHIFT REVERSE «CHRf<346) 

40040 s 

1. 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf< 146> 

40056 : 

1 

REVERSE «CHRf < 18 ) 


1 

SHIFT REVERSE «CHRf< 146> 

41210 : 

1 

REVERSE «CHRf <18) 


1 

SHIFT REVERSE «CHRf<146> 


1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf<146) 

41220 : 

1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf<146) 


1 

REVERSE =CHRf<18) 


1 

SHIFT REVERSE «CHRf< 146) 

41225 : 

1 

RE VERSE «CHRf< 18) 


1 

SHIFT REVERSE «CHRf<146) 


1 

RE VERSE =CHRT ■; 18) 


1 

SHIFT REVERSE =CHRf<146) 

41230 s 

1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf *,146) 


1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf<146 ■ 

41235 ; 

1 

REVERSE «CHRf <18> 


I 

SHIFT REVERSF CHRf<146) 

41240 li 

1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf<146) 


1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf<146) 

41250 :: 

1 

REVERSE «CHRf <18) 


1 

SHIFT REVERSE «CHRf< 146) 

41300 ; 

1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSE «CHRf<146) 


1 

REVERSE «CHRf<18) 


1 

SHIFT REVERSÈ «CHRf<146> 

4131© : 

1 

REVERSE «CHRf < 18) 




1 

SHIFT REVERSE «CHRf<146) 



1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41320 

; 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf< 146) 



1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41339 

; 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 



1 

REVERSE «CHRfO8) 



1 

SHIFT REVERSE «CHRf<146) 

41340 

- 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41350 

- 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146> 



1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41360 

- 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41605 

U 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41620 

s 

1 

REVERSE «CHRf<18> 



1 

SHIFT REVERSE «CHRf<146) 

41625 

: 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 



1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41630 

. 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 



1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146> 

41660 


1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41670 

. 

.1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 



1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE =CHRf<i46> 

41675 

» 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 



1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41705 

. 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 

41710 

• 

1 

REVERSE «CHRf<18) 



1 

SHIFT REVERSE «CHRf<146) 



1 

REVERSE «CHRf<18) 



i 

SHIFT REVERSE «CHRf<146) 

41726 

« 

1 

REVERSE «CHRf<18) 



1 

eg*f&si E *§B8S < 1415 ;:i 
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1 

SHIFT REVERSE «CHR*<146) 

41725 

- 

1 

REVERSE «CHR*< 13 :■ 



1 

SHIFT REVERSE =CHR*< 146> 



1 

REVERSE =CHR4<18) 



1 

SHIFT REVERSE «CHR*<146) 

41730 

: 

1 

REVERSE «CHR*< ISO 



1 

SHIFT REVERSE «CHR*<146) 



1 

REVERSE =CHR*<18) 



1 

SHIFT REVERSE «CHR*< 146) 

41735 

; 

1 

REVERSE =CHR*<18) 



t 

SHIFT REVERSE = CH R $ < 146 > 

‘4.1.760 

- 

1 

REVERSE «CHR*<18) 



1 

SHIFT REVERSE «CHR*<146) 



1 

REVERSE »CHR*<18) 



1 

SHIFT REVERSE =CHR*<146) 

41770 

» 

1 

REVERSE «CHR*<18) 



1 

SHIFT REVERSE. =CHR*< 1.46) 



1 

REVERSE «CHR* <18) 



1 

SHIFT REVERSE »CHR*<146) 

41775 

; 

1 

REVERSE «CHR*<18) 



1 

SHIFT REVERSE «CHR*<146) 



• 1 

REVERSE «CHR*<18) 



1 

SHIFT REVERSE «CHR*<146) 

41780 

; 

1 

REVERSE «CHR* <18) 



1 

SHIFT REVERSE «CHR*<146) 



1 

REVERSE =CHR*<18> 



1 

SHIFT REVERSE «CHR*<146) 

41735 

; 

1 

REVERSE =CHR*<18) 



1 

SHIFT REVERSE =CHR*<146) 

41790 

: 

1 

RE VERSE «CHR*< 18) 



1 

3H1FT REVERSE : CHR t 146 ) 

4 1805 

; 

1 

REVERSE «CHR*<18) 



1 

SUIFT REVERSE =CHR*>. 1 46> 

41816 

: 

1 

REVERSE «CHR* <18) 



1 

SHIFT REVERSE «CHR*<146) 



1 

REVERSE «CHR* < 18 ) 



1 

SHIFT REVERSE =CHR*<146) 

41820 

“ 

1 

REVERSE =CHR*< 18) 



1 

SHIFT REVERSE =CHR*<146) 



1 

REVERSE =CHR*<18) 



1 

SHIFT REVERSE «CHR*<146) 

41825 

; 

1 

REVERSE =CHR*<18) 



.1 

SHIFT REVERSE «CHR*<146) 



1 

REVERSE «CHR*<18 > 



1 

SHIFT REVERSE =CHR*<146> 

41827 

: 

1 

REVERSE =CHR*<18) 



1 

SHIFT REVERSE «CHR*<146) 

41830 

: 

1 

REVERSE =CHR*<18) 



1 

SHIFT REVERSE «CHR*<146) 


1 

REVERSE =CHR*<18> 


1 

SHIFT REVERSE «CHR*<146) 

41835 

; 1 

REVERSE «CHR*<18) 


1 

SHIFT REVERSE «CHR*<146) 

41860 

: 1 

REVERSE «CHR* < 18 ) 


1 

SHIFT REVERSE «CHR*<146) 


1 

REVERSE «CHR*<18) 


1 

SHIFT REVERSE «CHR*<146) 

41870 

: 1 

REVERSE =CHR*<18> 


1 

SHIFT REVERSE =CHR*'. 146) 


1 

REVERSE =CHR*<18> 


1 

SHIFT REVERSE «CHR*< 146> 

41375 

: 1 

REVERSE «CHR*<18) 


1 

SHIFT REVERSE «CHR*<146) 


1 

REVERSE «CHR*<18> 


1 

SHIFT REVERSE =CHR*<146) 


1 

REVERSE «CHR*<18> 


1 

SHIFT REVERSE «CHR*<146) 

41877 

: 1 

REVERSE =CHR*<18) 


1 

SHIFT REVERSE «CHR*<146) 

41880 

: 1 

REVERSE =CHR*< 18) 


1 

SHIFT REVERSE «CHR*<146) 

4 1885 

: 1 

REVERSE =CHR$C18) 


1 

SHIFT REVERSE «CHR*<146) 


1 

REVERSE =CHR*<18) 


1 

SHIFT REVERSE «CHR*<146) 

42009 

: 1 

REVERSE «CHR*<18) 


1 

SHIFT REVERSE -CHR4 (. 146) 

43010 

: 1 

SHIFT CRSRT «CHR*<145) 

44010 

; 1 

SHIFT CRSRT «CHR*CI45) 

46010 

: 1 

REVERSE «CHR*<18) 


1 

SHIFT REVERSE «CHR*<146) 


1 

SHIFT CRSRT «CHR*<145) 

46020 

: 1 

REVERSE «CHR*<18) 


1 

SHIFT REVERSE «CHR*<146) 


1 

SHIFT CRSRT «CHR*<145) 

43895 

: 1 

SHIFT CRSRT «CHR*<145) 

50010 

: 1 

SHIFT CRSR«- «CHR*<157) 

52010 

: 1 

SHIFT CRSRT «CHR*<145) 
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COMMODORE VIC 20 E C 64 


La gestione dei dati digitati 
sulla tastiera del VIC e C 64 

di Alessandro Guida 


Lo scorso mese si è visto che sia il VIC che il C 64 
sfruttano un’interruzione del loro lavoro, provocata 
dalla linea di interrupQ per controllare se è stato 
premuto qualche tasto. E stato anche spiegato l’uso 
del buffer di tastiera per la memorizzazione tempora¬ 
nea del codice ASCII dei tasti interessati nel buffer di 
tastiera. 

Questo buffer, posto nelle locazioni da $0277 a 
$0280, costituisce, quindi, un vero e proprio deposito 
dove vengono lasciati i caratteri della routine di ge¬ 
stione della tastiera, e dove vengono prelevati in un 
secondo momento dalle altre routine dell’interprete 
BASIC. 

In pratica, questo buffer è utilizzato diversamente 
se il computer è in modo diretto o sta eseguendo un 
programma. 

Nel secondo caso i caratteri presenti possono esse¬ 
re letti dall’istruzione GET. Bisogna osservare che in 
ogni caso il buffer è gestito su base FIFO (First 
In-First Out), ossia il primo carattere che vi era stato 
memorizzato sarà il primo a venire letto e tolto dal 
buffer stesso. Tutti i caratteri seguenti vengono spo¬ 
stati in una posizione e viene aggiornato nella loca¬ 
zione $C6, il numero di caratteri rimasti. 

Quando, invece, il computer si trova in modo di¬ 
retto (lo stato in cui si possono digitare comandi o 
linee BASIC direttamente dalla tastiera) ad accedere 
al buffer è la routine di gestione schermo. 

Questa routine preleva i caratteri presenti nel buf¬ 
fer e li deposita sullo schermo, o esegue le operazioni 
connesse se si tratta dei tasti di movimento cursore o 
di HOME-CLEAR. 

Perciò lo schermo è il vero deposito in cui sono 
conservati i comandi da eseguire o le linee BASIC da 
memorizzare. 

Il computer resta fermo alla routine di gestione 
schermo, finché non viene premuto il tasto RE¬ 
TURN. A questo punto viene letta la linea dello 
schermo sulla quale si trova il cursore e ricopiata nel 
BASIC INPUT BUFFER ($0200, $0258). 

Qui l’interprete BASIC la analizza e, se la linea 
comincia con un numero la memorizza come linea di 
programma, altrimenti la esegue segnalando even¬ 
tualmente gli errori di sintassi. 

Per curiosità, va notato che una linea logica può 
essere lunga più di una linea sullo schermo. Per que¬ 


sto motivo esiste una tavola in memoria, da $D9 a 
$F0, nella quale è conservato un numero per ogni 
linea. Un 158 significa che la linea logica termina con 
la linea dello schermo, altrimenti il valore 30 vuol 
dire che continua sulla linea seguente. 

Tutto ciò spiega come mai se sullo schermo, ad 
esempio, è già presente un comando, per eseguirlo 
nuovamente basta spostare il cursore sopra di esso e 
battere il return. 

A questo punto, risulta ovvia una considerazione: 
è possibile simulare la digitazione di comandi da 
programma, semplicemente mettendo i caratteri ne¬ 
cessari nel buffer di tastiera e memorizzando in $C6 il 
numero di caratteri immessi nel buffer. Il programma 
1 illustra quanto appena detto con un esempio. 

Quando l’esecuzione del programma si interrom¬ 
pe, il buffer viene svuotato sullo schermo e il return 
(codice ASCII 13) comunica all’interprete che può 
leggere la linea dallo schermo. Possiamo anche simu¬ 
lare la digitazione di intere linee BASIC. Poiché, 
però, queste sono in genere più lunghe di 10 caratteri, 
verranno stampate sullo schermo e poi nel buffer si 
introdurranno dei codici di spostamento cursore più 
il return. In questa maniera terminato il programma i 
caratteri nel buffer obbligheranno il cursore a spo¬ 
starsi sulla linea stampata in precedenza, e il return la 
farà entrare in memoria. 

Un ulteriore accortezza è quella di stampare la 
linea nello stesso colore dello sfondo. 

Questo tipo di simulazione richiede solo un po’ di 
fantasia da parte vostra, poiché apre enormi possibi¬ 
lità. 

Il programma 2 è una delle possibili applicazioni. 
Esso permette di trasformare il contenuto di una 
zona di memoria in frasi data, ed è utilissimo quando 
si scrivono delle routine in linguaggio macchina e le si 
vuole incorporare in un programma BASIC. 

Ma torniamo un po’ indietro e vediamo cosa acca¬ 
de esattamente quando il computer si trova in modo 
diretto. 

Terminata l’esecuzione di un programma, o dopo 
l’accensione, il computer passa all’esecuzione di una 
routine il cui indirizzo di partenza è conservato nel 
vettore $0302, $0303. 

Questa è la routine di HANDLE NEW BASIC 
LINE OR COMMAND (Routine di gestione linee 
BASIC o comandi), il listato 3 ne contiene le prime 
istruzioni, che sono le stesse sia per il VIC che per il 
64. L’unica differenza tra i due computer è che nel 64 
tutti gli indirizzi iniziano con la A mentre nel VIC con 
la C. 

Come si può vedere la prima istruzione è il salto 
alla subroutine in $C560 che è proprio quella che, al 
ricevimento del carattere di RETURN, preleva la 
linea dallo schermo e la mette nel buffer BASIC, 
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La gestione dei dati 
digitali sulla tastiera 
_del VIC e C 64 


10 REM PROVA SUL FUNZIONAMENTO DEL BUFFER 
20 REM DELLA TASTIERA. 

30 REM 

40 INPUT "TESTO (MAX 9 CAR.J'MA* 

50 A*=LEFT*<A*.9> 

60 REM 

70 REM INSERISCE I CARATTERI DEL TESTO NEL 
80 REM BUFFER. 

90 REM 

100 LUNG=LENCA*> 

110 FOR1*1TOLUNG 

120 POKE630+I, ASCCMIDJKA*. M)) 

130 HEXTI 
140 REM 

150 REM AGGIUNGE ANCHE UN RETURN 
160 REM 

170 PQKE630+I,13 

160 REM AGGIORNA IL CONTATORE DEI CAR. 

190 REM PRESENTI NEL BUFFER. 

200 POKE198.LUNG+1 
210 REM 

220 REM TERMINA IL PROGRAMMA E VIENE 
230 REM RIVERSATO IL BUFFER SULLO 
240 REM SCHERMO. SUBITO DOPO 
250 REM IL MESSAGGIO 'READY'. 


Listato 1. Simulazione di un comando dato da tastiera 
per mezzo di un programma. 


come visto prima. Inoltre i registri X e Y conterranno 
l’indirizzo di partenza del buffer; i due registri vengo¬ 
no salvati in $7A, $7B. 

Quindi viene chiamata la routine di CHARGET 
($0073) che ha il compito di prelevare il carattere 
puntato dalle due locazioni $7A, $7B. Questa routine 
fornisce il carattere letto nell’accumulatore A del 
microprocessore e contemporaneamente setta il flag 
C (carry) se non si tratta di un numero. 

Infatti, viene controllato che tale carattere non sia 
uno zero (ciò indicherebbe la fine della linea) e, subi¬ 
to dopo, se si tratta di un numero. La presenza di un 
numero viene interpretata come l’inizio di una linea 
BASIC, altrimenti come un comando da eseguire in 
modo diretto. A seconda di un caso o dell’altro ven¬ 
gono eseguite operazioni diverse. 

Ma fermiamoci a questa prima parte. Poiché, come 
abbiamo detto, l’indirizzo di questa routine risiede in 
un vettore, è possibile modificarlo. 

L’idea è quella di interfacciare uno o più comandi 
dati in modo diretto. Possiamo infatti sostituire l’ini¬ 
zio della routine di Handle con una nostra che con¬ 
trolli se la linea digitata contiene uno dei nuovi co¬ 
mandi. In questo caso verranno eseguite le operazio¬ 
ni da noi previste, se no si ritornerà alla routine 
originale. Tutto ciò non comporta troppe difficoltà, a 
patto di lasciare inalterate le prime tre istruzioni che 
costituiscono il nucleo vitale della routine originale. 

Il comando che vogliamo aggiungere è KEY, per 
completare il programma dei tasti di funzione. Vo¬ 
gliamo fare in modo che: 

KEY1, LIST 


associ al tasto FI la stringa LIST e così via cambian¬ 
do il numero che segue la parola KEY. 

Vogliamo anche che la parola KEY da sola faccia 
apparire la lista dei tasti associati a tutti i tasti funzio¬ 
ne. 

Il listato 4 contiene il disassemblato parziale della 
routine che realizza ciò, ed è abbondantemente com¬ 
mentato. In esso è possibile vedere applicato quanto 
appena detto. Il programma 5, invece ,è il modulo 
BASIC per caricarlo. 

Ricordate di abilitare i tasti di funzione prima di 
far girare il programma 5 per attivare il comando 
KEY, utilizzando il programma visto il mese scorso. 

Naturalmente, i più volenterosi che abbiano segui¬ 
to fin qui questo articolo, potranno fondere insieme 
le due routine. 

Sperando di avervi dato delle idee utili vi auguro 
buon lavoro. 


2 INPUT"rWINIZIO LM";S 

4 HBX-S/256:P0KE829,HBX 1 P0KE828,S-HKS*256 
10 INPUT"AFINE LM";E 

15 HBX=E/256 : P0KE831, HBX : POKE630, E-HB:-:*25S 

16 PRINT"n"; 

17 P0KE833.234 ■ PQKE832.' 96 

20 NL=PEEKC333)*256+PEEK<S32) Nf="000" 

22 S=PEEK<328>+PEEKC8295*256 : E«PEEK<830>+PEEKO31>*256 
30 PRINT" IT NL"DATA"; 

40 NL=NL+10 : HBX=NL/256 
45 P0KE833 , HBK ■ P0KE632» NL-HB/i*236 
60 FORNB=0TO9:BY=PEEK C S+NB> 

70 BV*-RIGHT*CN*+RIGHT*<STR*CBV> .. LEN<STR*<BV>>-l>,3> 

75 IFNB09THENBV*-BV*+”. " 

80 PRINTBVt-; 

90 NEXTNB 

100 IFS+10>ETHEN200 : REM FINE 
110 FRINT : PRINT"RUN20” 

120 S=8+10 : HB7.—SX256 

1-30 P0KE829, HBX : P0KE82S ■ S-HBX*236 

]40 F0KE631 > 19 : P0KES32. 13 :POKE633. 13 : P0KEI98.. 3 

t50 END 

208 P 0KES31.19 : P0KE632.13 : P0KE193,2 
210 END 


Listato 2. Programma che fa largo uso delle caratteri¬ 
stiche del buffer di tastiera. Riporta il contenuto di una 
zona di memoria in linee BASIC sotto forma di frasi 
DATA. 








'R0UT. HANDLE NEW BASIC LINE ORIGINALE 

C483 

20 

60 

C5 

JSR 

5C560 

Prende la linea dallo schermo e la 







Tesorizza nel buffer Basic 

C486 

86 

7A 


3TX 

47A 

'Aggiorna 1 puntatori all inizio 

C488 

84 

7B 


STY 

478 

'de’ buffer basic 

C48A 

20 

73 

00 

JSR 

40073 

•Routine CHARGET, legge \1 pri»o car. 

C480 

AA 



TAX 



C48E 

FO 

F0 


BEQ 

4C480 

Se 5 0 ritorna ad attendere un altra 






‘sullo schermo. 

C490 

A 2 

FF 


LDX 

&FF 


C492 

86 

3A 


STX 

43A 

'Se il carattere e un numero (C■0) 

C494 

90 

06 


8CC 

4C49C 







'salta a 4C49C, altrimenti continua. 


Listato 3. Disassemblato delle prime istruzioni delia 
routine di Handle New BASIC Line originale, che ci 
apprestiamo a modificare. 
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SERVIZIO SOFTWARE 



P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 



P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

3 

Backgammon 

TRS-80 Mod. 

2 

Editor/Assembler 
in BASIC 

CBM 3032 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

4 

Gioco del calcio 

CBM 3032 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CMB 3032 

14 

Tool-Kit 

C 64 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

25.000 

2 

Disco 

40.000 

3 

Disco 

40.000 

4 

Disco 

25.000 

5 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 


Per richieder* I programmi In contrassegno, pagando direttamente al postino la cifra Indicata, Inviare II seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson ■ Via Rosellini, 12 • 20124 Milano 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 



GRUPPO EDITORIALE JACKSON 




Cod. Nili lj al. Cognome 

Cod. 1111 ITI al. Nome . 

Cod. 1 1 I I I II a L. Indirizzo 

Cod. I I I I I I 1 al. CAP. 

Città. 


Spese postali (contributo fisso) L 2.000 

TOTALE L. 


che pagherò al postino alla consegna del pacco. 


Firma 
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Seguilo C 64 








ROUTINE HANDLE NEW BASIC .LINE MODIFIC. 

1C5F 

48 

45 

59 

BYT 

' KEY 

'Caratt. KEY 

1C62 

00 






1C63 

20 

60 

C5 

JSR 

SC 560 


1C66 

86 

7 A 


STX 

$7A 

'Come routine originale 

1C60 

84 

7B 


STY 

$7B 

'Controlla se la parola nel buffer 







' e' KEY. 

1C6A 

AO 

00 


LDY 

&00 

Puntatore = 0 

1C6C 

B1 

37 


LDA 

( *37), Y 

'Carica il carattere puntato. 

1C6E 

09 

00 

02 

CMP 

$0200, Y 

'Lo confronta con quello ne' buffer. 

1C 71 

FO 

03 


BEQ 

S1C76 


1C73 

4C 

8A 

C4 

JMP 

SC48A 

Se diversi torna a 11 a routine orig. 

1C76 

ce 



INY 


'Incrementa il puntatore per il pros- 

1 C77 

co 

03 


CPY 

&03 

' siao carattere. 

1C79 

DO 

FI 


8NE 

S1C6C 

Se diverso da tre torna al confronto. 

1C7B 

A9 

FF 


LDA 

&FF 


1C7D 

85 

3A 


STA 

>3A 


1C7F 

E6 

7A 


INC 

$7A 

'Aggiorna i puntatori della routine 

1C81 

E6 

7A 


INC 

$7A 

' di CHARGET al primo carattere dopo 

1C83 

E 6 

7A 


INC 

i7A 

la parola KEY. 

1C85 

E6 

7B 


INC 

$7B 


1 C87 

20 

73 

00 

JSR 

$0073 

'Legge il carattere. 

1C8A 

F0 

33 


BEQ 

$ 1CBF 

'Se = 0 allora salta alla routine di 







!ist dei tasti funzione. 

1C8C 

90 

03 


BCC 

$ 1 C 91 

'Se e' un numero salta all’ • utine 







di memorizzazione del cesto. 

1C8E 

4C 

08 

CF 

JMP 

SCFÙB 

'Stampa Sintax Error e termina. 


Listato 4. Disassemblato della parte della routine di 
HN BASIC L modificata. 


1 REM ROUTINE PER 64 

2 REM 

10 P0KE36,PEEK( 56 )-1 : P0KE35,95'CLR 
20 IN=PEEK<36)#256+95 
30 FORI =0TO159 : RERDfl ' POKEIN+I , Fi : NEXT 
40 P0KE77I,PEEK<56)■POKE770,99 

60000 DRTR075, 069, 089.. 000,032, 096, 165, 134,122,132 
60010 DRTR123,160,000,177,055,217,000,002,240,003 
60020 DRTR076,138,174,200,192,003,208,241,169,255 
60030 DRTRl33,058,230,122,230,122,230,122,230,123 
60040 DRTR032,115,000,240,051,144,003,076,008,175 
60050 DRTR170.202,169,044,160,001,032,001,175,138 
60060 DRTR010,010,010,010,168,162,800,189,005,002 
60070 DRTR145,253,240,011,200,232,224,010,208,243 
60080 DRTR162,023,108,000,003,076,116,164,234,234 
60090 DRTR234,234,234,234,234,234,162,000,142,060 
60100 DRTR003,165,055,164,056,032,030,171,173,060 
60110 DRTR003,024,105,049,032,210,255,169,044,032 
60120 DRTR210,255,173,060,003,010,019,010,010,168 
60130 DRTR177,253,240,006,032,210,255,200,208,246 
60140 DRTR169,013,032,210,255,233,060•003,173,860 
60150 DRTR003,201,008,208,202,876, 116, 164,234,234 


1 REM ROUTINE PER VIC 20 

2 REM 

10 P0KE56,PEEK< 56)-1 :P0KE55,95 : CLR 
20 IN=F'EEK( 56) #256+95 
30 FORI =0TO 159 : RERDR : POKEIN+1, R : NEXT 
40 P0KE771,PEEK<56):P0KE770,99 

60000 DRTR075,069,089,000,032,096,197,134,122,132 
60010 DRTR123,160,000,177,055,217,000,002,240,003 
60020 DRTR076,139,196,200,192,003,208,241,169,255 
60030 DRTR133,058,230,122,230,122,230, 122,230, 123 
60040 DRTR032,115,000,240,051,144,003,076,008,207 
60050 DRTR170,202,169,044,160,001,032,001.207,138 
60060 DRTR010,010, 010, 010,168,162,000,189,003,002 
60070 DRTR145,233,240,011,200,232,224,010,203,243 
60080 DRTR162,023,108,080,003,076, 116,196,234,234 
60090 DRTR234,234,234,234,234,234,162,000,142,060 
60100 DRTR003,163,055,164,036,032,030,203,173,060 
60110 DPITR003, 024, 105,049,032,210,255, 169,044,032 
60120 DRTR210,235,173,060,003,010,010,010,010,168 
60130 DRTR177,253,240,806,032,210,235,200,209,246 
60140 DRTR169,013,032,210,253,238,060,003,173,060 
60130 DRTR003,281,008,208,202,076,116, 196,234,234 


Listato 5. Routine per aggiungere il comando KEY al 
BASIC del computer. 


ZX SPECTRUM 

Risparmio di memoria con insiemi 
di numeri interi 

di Marcello Spero 

Sul numero 10/11 di Personal Software, Bruno Del 
Medico forniva utili consigli per contenere l’utilizzo 
di memoria con le macchine Sinclair. Questo proble¬ 
ma è particolarmente sentito dai possessori di uno 
ZX81 inespanso; se comunque disponendo solo di 1 
Kbyte diventa importante anche il risparmio di qual¬ 
che byte, non è detto che in uno Spectrum con 16 
Kbyte ci sia memoria da sprecare. In questa macchi¬ 
na, infatti, la quantità di memoria utilizzata diretta- 
mente dal sistema è decisamente elevata in rapporto 
alla disponibilità totale. 

In particolare la fetta di memoria dedicata a conte¬ 
nere l’immagine video occupa da sola ben 32 x 8 x 24 
+ 32 x 24 = 6912 byte, che sommati a quelli occupati 
dalle variabili di sistema, dal buffer di stampa e dai 
vari puntatori danno un’occupazione totale minima 
di circa 7700 byte. A questo punto con una semplice 
sottrazione ci rendiamo conto che ci restano circa 
8700 per programma e dati. 

Ora, se un programma breve occupa mediamente 
un paio di Kbyte, è altrettanto vero che programmi di 
una certa complessità e lunghezza, diciamo circa 9-10 
schermi, riempiono per lo meno 8-8,5 Kbyte di me¬ 
moria. 

Fin qui nessun problema, ma le cose si complicano 
quando programmi di questa mole devono lavorare 
su masse di dati relativamente cospicue. È questo il 
caso dei vari programmi di gestione di magazzino, 
contabilità familiare o di tipo statistico, che operano 
con grandi quantità di dati numerici. Supponendo 
infatti di disporre di 600 byte per le variabili, potremo 
memorizzare al massimo 120 dati numerici, occupan¬ 
do ciascuno di essi cinque byte. Quindi, ammesso che 
dedichiamo tutta la memoria rimasta ad un insieme 
di dati numerici, cosa quasi impossibile in realtà, 
data la necessità di un certo numero di variabili 
accessorie di cui ogni programma ha bisogno, non 
potremo andare oltre una DIM A (120), o DIM (2,60) 
o equivalenti. 

È interessante osservare come la gran parte dei dati 
numerici che utilizziamo nei programmi sia compo¬ 
sta da numeri interi e piccoli, vale a dire al di sotto di 
10.000.000. Tenendo presente questa caratteristica 
vediamo ora come sia possibile diminuire drastica¬ 
mente la quantità di memoria occupata da dati di 
questo tipo. 

Abbiamo visto come ogni elemento di un insieme 
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numerico occupi 5 byte. Nel caso di numeri interi, 
compresi fra — 65535 e + 65535 però, il manuale ci 
spiega come vengono utilizzati solo il terzo e il quarto 
byte dì ciascun elemento, lasciando a zero il primo e il 
quinto ed utilizzando il secondo per indicarne il se¬ 
gno. Una ipotetica compattazione del formato in 3 
byte, quindi, pur non togliendo nulla alla precisione 
dell’informazione memorizzata consentirebbe un ri¬ 
sparmio del 40% dello spazio. Un ulteriore passo 
avanti che ne permettesse la compattazione in 2 byte 
porterebbe il risparmio al 60%, fino ad arrivare 
all’80% per un solo byte. 

Queste contrazioni sono realmente possibili utiliz¬ 
zando per la memorizzazione dei numeri un insieme 
di caratteri, un a$(), per intenderci. In un insieme del 
genere ogni elemento occupa un solo byte che contie¬ 
ne un numero compreso fra zero e 255 a rappresenta¬ 
re il codice di un carattere. Potremo quindi immagaz¬ 
zinare in un singolo elemento un numero minore o 
uguale a 255 senza segno (nei casi in cui questo è 
conosciuto in precedenza o, come per i numeri che 
indicano quantità, non ha alcun significato), in due 
elementi un numero minore o uguale a 65535 (256 x 
256) senza segno o compreso fra - 255 e + 255 se 
usiamo il secondo byte per indicare il segno, zero se 
positivo, uno se negativo, e così via, dando ad ogni 
successivo elemento che compone il numero un peso 
pari a 255 volte quello dell’elemento che lo precede. 

L’uso di un byte per indicare il segno è comunque 
uno spreco, e può essere evitato ponendo 0 = 128. In 
questo modo con un elemento potrà essere rappre¬ 
sentato un numero compreso fra — 128 (0 — 128) e + 
127 (255 — 128), con due un numero compreso fra — 
32768 e + 32767, con 0 = 32768 (128 x 256), e così via. 
Più in generale, per un numero formato da X elemen¬ 
ti, lo zero sarà uguale a: 

256 t X/2 

ed il campo dei possibili valori si estenderà da: 

- (256 t X/2) a + (256 t X/2 - 1) 


numeri compresi fra - 2 x 10* e + 2 x 10* circa, 
esprimibili con quattro elementi, ma il suo uso ideale 
c con numeri di due e tre elementi, cioè rispettiva¬ 
mente compresi fra - 32768 e + 32767 e — 8388608 e 
+ 8388607. 

A questo punto vediamo in pratica che sistemi 
usare per compiere facilmente dall'Interno di un pro¬ 
gramma la memorizzazione o il recupero di dati in 
questa forma: si tratta fondamentalmente di operare 
delle divisioni o moltiplicazioni a catena, tenendo 
conto del punto di zero. La subroutine PROCEDU¬ 
RA UNO del listato 1 è quella che trasferisce i dati da 
una variabile provvisoria p all’insieme a$. Al mo¬ 
mento di utilizzarla, le seguenti variabili dovranno 
contenere: 

p il numero intero da memorizzare, di dimensioni 
adatte al numeo di elementi che utilizziamo; 
x il numero di elementi utilizzati, cioè la seconda 
dimensione dell’insieme a$; 
y la posizione che vogliamo dare al dato all’interno 
dell’insieme, cioè il primo indice di a$. 

Supponiamo, per esempio, di dover introdurre 
dall’esterno 50 dati compresi fra - 32768 e -E 32767, e 
di volerli collocare in a$, previsto per dati di queste 
dimensioni. Dovremo procedere così: 

LET x = 3 
FOR y = 1 TO 50 
INPUT p 
GO SUB 1000 
NEXT y 

La subroutine PROCEDURA DUE del listato 1 
serve invece a trasferire un dato da a$ a p, per un suo 
successivo utilizzo da parte del programma, per cal¬ 
coli o stampa. Al momento di utilizzarla dovrano 
essere definiti: 

x il numero di elementi utilizzati; 
y la posizione del dato all’interno dell’insieme; 


Per ragioni di praticità è bene organizzare l’insie¬ 
me su due dimensioni, dove ogni riga sarà un dato 
composto da tanti elementi quante sono le colonne. 

Logicamente questo metodo è conveniente finché 
restiamo a di sotto dei cinque byte, vale a dire fino a 


in p otterremo il dato desiderato in forma numerica. 

Concludiamo con una nota curiosa. Pur non esi¬ 
stendo sullo Spectrum un comando FRE per ottenere 
l’ammontare di memoria ancora libera, esiste in 
ROM la routine corrispondente; per utilizzarla basta 


n 

Segno 

Byte meno 

Byte piu’ 

n 


significativo 

significativo 



Figura 1 . Disposizione in memoria di un numero intero compreso fra — 65535 e + 65535. 
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SEGRETI DEI PERSONAL 


Seguilo Spectrum. 
digitare: 


PRINT 32767 -‘USR 7962 


SHARP 


Alla scoperta di nuovi caratteri 


per il 16 Kbyte e: 

PRINT 65535 - USR 7962 
per il 48 Kbyte. 

La routine posta all’indirizzo di memoria 7962, 
infatti, restituisce una stima abbastanza precisa della 
memoria occupata in quel momento; parliamo di 
stima perché l’occupazione di memoria è, almeno in 
parte, qualcosa di dinamico e quindi continuamente 
variabile. 


Elementi di ciascun dato 

V 1 / 

X 

v 
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2 

t 

3 


1 





2 




_ Dati 

/ 

3 










Figura 2. Disposizione dei dati interi all’interno di un 
insieme di caratteri. 


Ì300 

REM 

PROCEDUfifi UNO 


1310 

LET 

p =p +128*2561 (X-l) 


1020 

FOR 

n =x TO 1 STEP -1 


1030 

LET 

a $ ( y , n J =CHR $ t INT 

(py 25 

et tn 

- 1.) .1 1 


a $ ( y 

104-0 

LET 

p=p-256t (n-1.1 Sf-CODE 

1050 

NEXT 

n 


1060 

RETURN 


2000 

REM 

PROCEDURA DUE 


2010 

LET 

p =0 


2320 

FOR 

n =1 TO X 


2030 

LET 

P =p +CODE a$(y,n) *256t (n 

-1) 




204.0 

NEXT n 


2050 

LET 

p=p-128*256t fx-lJ 


2360 

RETURN 



Listato 1. Le subroutine di entrata e uscita dati da un 
insieme di caratteri. 


di Mauro Lenzi 

Dopo che, nei due numeri precedenti, abbiamo 
trovato le tre nuove istruzioni PEEK, POKE e CALL 
e abbiamo studiato la mappa della memoria del com¬ 
puter, questa volta possiamo fare letteralmente cose 
“cinesi”. 

Senza perdere altro tempo fate girare questo pro¬ 
grammino: 

10 FOR L = 1 TO 107 : IF L = 18 THEN 
NEXT L 

20 POKE 45142, L 
a*r = “ ” 

40 PAUSE A$, L 
50 NEXT L 
60 END 

Vedrete comparire sul display alcuni caratteri ve¬ 
ramente assurdi (forse sono veramente cinesi o, più 
facilmente, giapponesi!). 

Insieme a questi caratteri veramente indescrivibili, 
compariranno tutti i caratteri ASCII, alcuni ripetuti 
più volte. 

Molto interessante è il caso delle virgolette, prima 
però esaminiamo molto brevemente come funziona il 
programma. Il procedimento su cui si basa è elemen¬ 
tare: consiste nel porre nella locazione corrisponden¬ 
te al carattere blank fra virgolette della linea 30 una 
successione di numeri da 1 a 107, in modo che, ad 
ogni ciclo del programma, ad A$ venga assegnato un 
carattere diverso. 

Il carattere ASCII 18 corrisponde alle virgolette, 
quindi occorre saltarlo, altrimenti la linea 30 divente¬ 
rebbe: 

30 A$ = ” ” ” 

con il conseguente arresto del programma e dichiara¬ 
zione ERROR 1. 

Tuttavia esistono altri numeri a cui corrisponde la 
visualizzazione del carattere delle virgolette: il 34 ed il 
60. Questi ultimi due non vengono riconosciuti dal 
BASIC come parte dell’istruzione PRINT o PAUSE 
o LPRINT e perciò, dopo averli immessi con oppor¬ 
tune POKE nel programma, possono venire visualiz¬ 
zati senza inconvenienti. 

Una carenza piuttosto fastidiosa di questo compu¬ 
ter e che avrete avuto modo di constatare con notevo¬ 
le disappunto, è l’assenza del carattere dell’apostro¬ 
fo, che viene anche normalmente utilizzato come 
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Alla scoperta 
di nuovi 

_caratteri _ 

accento. Fortunatamente le virgolette vengono vi¬ 
sualizzate in modo da funzionare abbastanza bene in 
sostituzione. 

Un programma come il seguente consente, con una 
certa facilità, di potere finalmente usare l’apostrofo e 
l’accento: 

1 N = 3 

2 X = 45104 

3 IF PEEK (X) 021 THEN LET X = X + 1 : 
GOTO 3 

4 POKE X, 34 : BEEP 1 : N = N - 1 : IFN >0 
GOTO 3 

5 END 

10 PAUSE “W L # APOSTROFO!!” 

20 PAUSE “ACCENTO E # BELLO!!” 

30 PAUSE “LA FINE E # VICINA!!” 

40 END 

Questo programma, linee 1-5, deve essere aggiunto 
al programma in cui volete utilizzare apostrofi o 
accenti; dopo averlo eseguito può essere eliminato. 
Prima di farlo girare occorre però avere cura di fare 
due cose: 

1) porre in N (linea 1) il numero di apostrofi ed 
accenti desiderati; 

2) porre nel programma, al posto dell’apostrofo che 
vorremmo ottenere, il simbolo di numero (#). 

Le linee 10-40 sono semplicemente un esempio di 
un programma che utilizza questo accorgimento. 
Date prima RUN e poi RUN 10. 

Ma le sorprese non sono ancora finite! 
Modifichiamo la linea 40 del primo programma 
per utilizzare la stampante 40 LPRINT A$, L. 

Fate girare il programma, ma prima, se siete deboli 
di cuore, prendetevi una robusta dose di tranquillan¬ 
ti: posso immaginare i vostri volti impallidire dalla 
meraviglia alla comparsa dei primi caratteri stampati. 

Infatti non verranno stampati quei caratteri assur¬ 
di che prima avevamo visto sul display, come era 
normale aspettarsi, ma appariranno invece dei sim¬ 
boli matematici, dei caratteri greci e perfino qualche 
strano simbolo grafico. Alcuni di questi sono indeci¬ 
frabili, altri, come il simbolo di diverso (^), somma¬ 
toria (£), assegnazione (=£^, una theta maiuscola (9), 
un due in numeri romani (II) un triangolo pieno (A) 
ed uno vuoto (A), possono anche trovare qualche 
utilità pratica. 

In ogni caso mi è molto difficile comprendere gli 
oscuri motivi per cui sono stati creati (forse in previ¬ 
sione dell’utilizzo dell’interfaccia stampante per un 
altro computer più potente o per un’espansione di 
questo?). Inoltre è un vero peccato che questi strani 



caratteri non siano accessibili direttamente con l’i¬ 
struzione CHR$, anche se comunque sono pur sem¬ 
pre una sorpresa gradita o, almeno, una curiosità che 
solleticherà non poco la vostra fantasia. 

Ma le sorprese sono solo all’inizio. La prossima 
volta scopriremo le ancora più misteriose istruzioni 
segrete custodite gelosamente nei più oscuri meandri 
della nostra Sharp. 
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Apple 


Vendo o cambio programmi per Apple Ile: 
triangoli, quadrilateri, grafix. giochi M. MIND, 
PP. Sabotage, Autobank, poker, scacchi ecc. 
Tutti bellissimi per informazioni telefonare 
dalle 13 alle 14. 

Fabrizio Ghibaudo - Via Cadorna, 20/5 - 
17100 Legino (SV) - Tel. 019/861116. 

Cambio, vendo programmi Apple II, possiedo 
programmi scientifici gestionali, utilità e mol¬ 
tissimi giochi. Telefonare ore serali. 

Franco Vittor - Via Grabizio, 35 - 34170 Gori¬ 
zia - Tel. 0481/81254. 


Commodore 


Vendo programmi per VIC 20 a prezzi strac¬ 
ciatissimi (ma di alta qualità). 

Carlo Borreo - Via G. Berio, 34 - 18100 Impe¬ 
ria - Tel. 0183/21833. 

Cambio programmi L.M. VIC 20 (+ 3 K +16 K). 
Telefonare ore serali. 

Cottarelli Francesco - Via Padre Onorio, 20 - 
43100 Parma (PR) - Tel. 0521/24184. 

Cambio/vendo/compro programmi per CBM 
64. Ne possiedo di favolosi!!! 

Carlo Borreo - Via G. Berio, 34 - 18100 Impe¬ 
ria - Tel. 0183/21833. 

Vendo VIC 20 + C 2 N + 16 K RAM + 1 
cassetta gioco + 2 manuali in italiano + ma¬ 
teriale vario per VIC 20. Perfetto, 2 mesi di vita, 
in garanzia. Tutto a L. 400.000 disponibile 
anche espansione da 8 K RAM a L. 70.000. 
Giorgio Morandi - Via Dante, 17 - 25122 Bre¬ 
scia - Tel. 030/43146. 

Contatto possessori della Cartridge Machine 
Language Monitor per scambio idee, pro¬ 
grammi, utility in L.M., e notizie sulle routine 
Kernal del sistema operativo del personal 
computer VIC 20. 

Comensoli Paolo - Via S. Zenone, 6/A - 
25040 Demo (BS) - Tel. 0364/61389. 

Cambio/vendo sofware VIC 20, dispongo di 
ottimi giochi in BASIC e L.M., programmi uti¬ 
lity, matematici, grafici, dimostrativi (anche su 
super EXP.). Oltre 300 programmi. Per lista 
inviare L. 1.000. 

Comensoli Paolo - Via S. Zenone, 6/A - 
25040 Demo (BS) - Tel. 0364/61389. 

Vendo programmi per VIC 20 a prezzi bassis¬ 
simi. Amplia scelta tra circa 500 programmi; 
scambio sempre per VIC solo programmi in 
L.M., scambio anche programmi per ZX 
Spectrum. Allegare L. 700 per le liste del VIC 
gratis se inviate le vostre. 

Giuseppe Mascali - Via R. Margherita, 573 - 
98028 S. Teresa Riva (ME) - Tel. 
0942/791692. 

Se possiedi un VIC 20, non puoi non far parte 
dell'Eden Software Club! Il club delle idee e 
degli scambi, per informazioni scrivere. 
Rinaldo Denti - Via Bellane, 4 - 10025 Pino 
Torinese (TO). 


Vendo per VIC 20 in espanso cinque pro¬ 
grammi su cassetta da scegliere fra i seguen¬ 
ti: Crazy Kong, Pac-Man, Slither, Blitz, Guar¬ 
dian, Medioevo, Thunderbird, Scommesse, 
VXB. Il tutto a solo L. 15.000. 

Umberto Benelli - V.le XX Settembre, 180 - 
54031 Carrara-Avenza (MS) - Tel. 
0585/57145. 

Scambio software per Commodore 64 su 
cassetta o disco. L'annuncio è sempre valido, 
scrivere. 

Luigi Beviglia - Casella Postale 41 - 21052 
Busto Arsizio (VA). 

Vendo VIC 20 + 16 K RAM -I- scheda Hi-RES 
+ scheda assemblatore Hesmon + gioco Ra- 
trace + interfaccia registratore e manuali a L. 
300.000. 

Massimo Cimini - Via Vipacco, 4 - 20126 Mi¬ 
lano - Tel. 02/2572708. 

Finalmente si è costituito il 1° Club siciliano di 
utenti del CBM 64. Moltissimi vantaggi e li 
puoi scoprire solo associandoti. Quota di 
adesione L. 18.000. Offerta e richiesta, massi¬ 
ma serietà. 

Commodore Exchange Club - Corso Italia, 
60/A - 95014 Giarre (CT). 

Dispongo di una vasta lista di giochi per VIC 
20 e CBM 64 chi è realmente interessato per 
cambi o per comprare telefonare dopo le 
21.00. 

Giulio Marcozzi - Via C. Baroni, 148 - 20142 
Milano - Tel. 02/8260421._ 

Commodore 64 cerco programmi da acqui¬ 
stare su disco o cassetta a prezzi stracciati 
inviare lista e modalità pagamento. Cerco 
statistici archiviazione World Processing ge¬ 
stionali e giochi. 

Vincenzo Freni - Via Pagnini, 48 - 50134 Fi¬ 
renze - Tel. 055/473095. 

Per C-64 vendo/cambio software su disco- 
/cassetta. Invio gratis liste se inviate le Vs. per 
VS. acquisti inviare L. 500 per ricevere il cata¬ 
logo. Massima serietà. Software anche L.M. 
originale. 

Giorgio Ferrarlo - Via Adua, 1 - 21052 Busto 
Arsizio (VA). 

Vendo VIC 20 + registratore mai usati in ga¬ 
ranzia a sole L. 400.000 vendo anche CBM 64 
nuovo a sole L. 600.000. Per chiarimenti e 
formula di pagamento scrivere o telefonare 
ore 12-14/15. 

Alberto Perlo - Via Podgora, 7/H - 10064 
Pinerolo (TO) - Tel. 0121/75216. 

Cambio/vendo programmi originali inglesi 
ed americani per Commodore 64 (oltre 300). 
Vendo interfaccia per stampante tipo Centro¬ 
nics per Commodore 64. 

Maurizio Carola - Via L. Lilio, 109 - 00143 
Roma - Tel. 06/5917363. 

Vendo VIC 20 + registratore + cartuccia 
scacchi + 4 manuali + cassette programmi 
vari a L. 300.000. 

Matteo Minischetti - Via Trento Trieste, 4 - 
10026 Santena (fO) - Tel. 011/9493582._ 

Siamo un gruppo di ragazzi che hanno com¬ 
prato dei VIC 20 e Commodore 64 e vorrem¬ 
mo cambiare programmi e cassette già pro¬ 
vati. Scrivere. 

Massimiliano Molino - C.so Salvemini, 53 - 
10095 Grogliasco (TO). 


Si è costituito il Pocket Group Club utenti 
Commodore Puglia. Numerose e interessanti 
iniziative previste per i soci. L'iscrizione è 
aperta a tutti i possessori di VIC 20, CBM 64. 
PET. Possono iscriversi anche coloro resi¬ 
denti fuori dalla Puglia. Per informazioni scri¬ 
vere. 

Pocket Group - Via Amoruso, 34 - 70124 Bari. 

Eccezionale ! Vendo programmi VIC 20, soft¬ 
ware dilettanti, commerciale, scientifico, tra 
cui legge di OHM, anagrammi, testi ed altri. 
Per richiedere gratis la lista programmi scri¬ 
vere o telefonare. 

Vincenzo Musicò - Via Paolo Blandino, 12 - 
98100 Messina - Tel. 090/2938626. 

Vendo Commodore 64 + giochi: scacchi, ato¬ 
mo, alto medioevo, Screen Graphic 64, Demo 
1, Demo 2, Grafica, parole crociate tutto a L. 
560.000 registratore L. 100.000. 

Natali Giacomo - Via S. D’Acquisto, 19 - 
62010 Petriolo (MC) - Tel. 55201. 

Compro/cambio/vendo software per Com¬ 
modore 64. I migliori giochi in linguaggio 
macchina sul mercato internazionale e nu¬ 
merosi programmi di utility per il floppy driver 
dall’America e dall’Inghilterra. 

Leonardo Fei - Via A. Fava, 6 - 20125 Milano - 
Tel. 02/6894142._ 

Vendo/cambio giochi per VIC 20 in linguag¬ 
gio macchina o in BASIC sciolti o in cassetta a 
prezzi modici. Telefonare o scrivere. 

Daniele Moreale - Via Monte Ortigara, 14 - 
33100 Udine - Tel. 0432/478532. 

Vendo programmi per VIC 20 comprendenti 
vari giochi. Gli interessati possono telefonare 
per accordi. Ore pasti. 

P.S. I programmi si vendono a L. 5.000 cadau¬ 
no. 

Salvatore Gagliarde - Via Vescovo Natale - 
81100 Caserta - Tel. 0823/302596. 

Compro/cambio/vendo programmi per 
Commodore 64. Inviare lista e richiedere la 
mia. Desidero contattare altri possessori C64 
in provincia di Napoli - Salerno - Caserta per 
futuro Club. 

Giovanni Carella - Via Eolo, 20 - 80058 Torre 
Annunziata (NA) - Tel. 081/8617045. 

Se possiedi un VIC 20 non puoi non far parte 
dell’Eden Software Club. L'Eden è il Club del¬ 
le amicizie, degli scambi e delle idee! Scrivici, 
riceverai un interessantissimo nostro bolletti¬ 
no omaggio. 

Rinaldo Denti - Via Bellane, 4 - 10025 Pino 
Torinese (TO). 

Cerco possessori di Commodore 64 per 
scambio programmi su nastro o listati. 
Marzio Barbieri - Via Osimo, 10 - 29100 Pia¬ 
cenza - Tel. 0523/752986. 

Vendo due cartucce-gioco per VIC 20 “Alien” 
e “Star Battle" a metà prezzo. Vendo inoltre 
vari giochi su cassetta o listati. 

Marzio Barbieri - Via Osimo, 10 - 29100 Pia¬ 
cenza - Tel. 0523/752986. 

Cerco software per Commodore 64 applicati¬ 
vo per musica teoria di armonia, composizio¬ 
ne, arragiamenti ad un prezzo ragionevole. 
Cerco inoltre libri in italiano per la composi¬ 
zione automatica computerizzata. 

Ruggero Capacchione - Via Vitrani, 70 - 
70051 Barletta (BA). 























































Vendo/scambio per VIC 20 ottimi programmi 
in L.M. e BASIC (Bonzo - Sub Chasse - Avitw - 
Gridrunner), scrivete per avere l'elenco gra¬ 
tuito. Vendo Cartridges Jupiter Lander - Road 
Race - Alien - Vie Graph, prezzi modici. 
Tommaso & Federico Gurrieri - Via Ugo Fo¬ 
scolo, 14 - 50124 Firenze - Tel. 700635. 

Per VIC 20 e CBM 64 vendo cassetta conte¬ 
nente 20 eccezionali giochi di animazione, 
ognuno completo di istruzioni in italiano, 
quelli per VIC funzionanti con memoria base, 
tutto a solo L. 30.000. 

Claudio Giovanelli - Via Ripamonti, 194 - 
20141 Milano - Tel. 02/536926. 

Commodore 64 vendo/scambio software su 
disco o cassetta a richiesta invio elenco gra¬ 
tuitamente. Telefonare ore 20-21. 

Fabio Marchiò - Via Delle Cicale, 1 - 21052 
Busto Arsizio - Tel. 0331/634009. 

Occasione! Vendo per VIC 20 programmi su 
cassetta (13) (Video Games, ed altri) al fanta¬ 
stico prezzo di L. 10.000. Per listino inviare L. 
500 in francobolli (sono disposto a scambiar¬ 
li). 

Barbaro Levi - Via Crocefisso, 27 - 20122 
Milano - Tel. 02/8379401. 

Cambio/vendo per CMB 4032 programmi 
gestionali compilatore condominio Com- 
mand - 0 BASIC Plus RTTY + stampa giochi. 
Per VIC 64 compilatore data base Easy Script 
Forth Simon's BASIC "The last One" grafica 
Sint. 

Augusto Bernardini - Via Valle Verde, 5 - 
05100 Terni - Tel. 0744/56870. 

Vendo/cambio programmi su cassetta per 
Commodore 64 (calcio, Pucman, Jawbrea- 
ker, Fort Apocalyps e Monopoli, Motormania, 
Bis, Jazzi, Renaissance e molti altri. 

Franco Silvestrini - Via G. B. Miliani, 36 - 
60044 Fabriano - Tel. 21593. 

Vendo per VIC 20 1 cassetta con 20 program¬ 
mi in L.M. a L. 30.000 + spese postali. Tra 
questi cito Grazy Cong, Munch Man, Gala- 
xions, Multitron ecc. 

Molti programmi anche per il 64. Rispondo a 
tutti scrivere. 

Carlo Zanini - Via Largo Paolo Sarpi, 17 - 
26100 Cremona - Tel. 0372/27498. 


Sinclair 


Vendo ZX81 completo di cavi, alimentatore e 
16 K, tastiera premente, libro 66 programmi 
per ZX81, riviste varie e manuali inglese ita¬ 
liano. A L. 200.000. Scrivere. 

Pasquale De Luca - Via Tanucci, 86 - 81100 
Caserta. 

Vendo/cambio moltissimi programmi per ZX 
Spectrum 16-48 K a prezzi veramente bassi. 
Scrivere o telefonare per elenco completo. 
Piero Cingolani - V.le Dei Pini, 37 - 62017 
Porto Recanati (MC) - Tel. 071/9798853 


Vendo a L. 90.000 Sinclair ZX81 completo 
cavetti collegamento alimentatore + libro in 
italiano e cassetta 10 programmi. Un mese di 
vita valore reale L. 150.000. 

Antonio Mazzucchelli - Via Pontaccio, 19 - 
20121 Milano - Tel. 02/8691038. _ 

Vendo/cambio programmi per ZX Spectrum. 
Prezzo massimo L. 10.000 favolosi program¬ 
mi in linguaggio macchina. Scrivere per rice¬ 
vere gratis l'elenco. 

Michele Bighignoli - Via Palermo, 40/12 - 
39100 Bolzano - Tel. 0471/915107. 

Vendo a L. 130.000 trattabili Sinclair ZX81 
completo di alimentatore cavi - colle, regi¬ 
stratore e TV, manuale inglese e italiano e 
alcuni programmi usato solo due mesi. Tele¬ 
fonare ore pasti. 

Roberto Mannini - Via A. Corelli, 10 - 50053 
Empoli (FI) - Tel. 0571/91235._ 

Vendo per ZX Spectrum: giochi di ogni gene¬ 
re; vari istogrammi; biblioteca; schedario; ru¬ 
brica; vari grafici. Inviate L. 500, avrete il cata¬ 
logo con l'elenco completo dei programmi e 
ampia documentazione. 

Pietro Cardetta - Via Rosmini, 2 - 74017 Mot- 
tola (TA)._ 

Vendo 200 programmi per Spectrum a L. 
8.000 cadauno (spese postali incluse) sconti 
per ordinazioni superiori a 5 programmi scri¬ 
vere o telefonare per ricevere a casa l’elenco. 
AldoSavoi - Via Boldrini,6 - 40121 Bologna- 
Tel. 051 /552633. 

Cerco espansioni di memoria per ZX81. 
Sergio Palazzi - Via Romolo Bitti, 23 - 20125 
Milano - Tel. 02/6425614._ 

Vendo programmi Spectrum 16/48 K a mas¬ 
simo L. 12.000 per programmi 48 K fra cui: 
scacchi thè Flobbi + VU3D e molti altri. Ri¬ 
chiedere elenco. 

Maurizio Leone - Via Gaio Melisso, 16 - 
00175 Roma - Tel. 06/7662671. 

Vendo ZX Spectrum, alimentatore, registrato- 
re, cavi, manuale in italiano, garanzia Rebit da 
inviare, 3 cassette istruzioni. Tutto a L. 
350.000. 

Mario Bernardi - Via Triumplina, 28/P - 
25100 Brescia - Tel. 030/398383. 

Vendo per ZX Spectrum cassette da 10 giochi 
ciascuna a L. 15.000 tra cui Asteroid Caram¬ 
bola Wester. 

Telefonare o scrivere (aggiungere L. 2.000 in 
contrassegno). 

Sergio D’Amico - Via 5 Giornate, 14 - 20025 
Legnano (MI) - Tel. 02/595581. 

Vendo/compro/scambio software di ogni ti¬ 
po per ZX Spectrum. 

Dispongo di numerosi programmi di gestione 
di giochi e di utilità. 

Tommaso Mastroberardino - via A. De Pretis, 
30 - 86100 Campobasso. 

Cerco possessori ZX Spectrum per scambio 
idee e programmi possibilmente zone limitro¬ 
fe. 

Sandri Marco - Via Simbeni, 15 - 47037 Rimi¬ 
ni (FO) - Tel. 740565. 

Vendo ZX81 + alimentatore + 16 K, cavetti, 
manuale a L. 200.000. 

Daniele Bricchi - Via Ebro, 11 - Milano - Tel. 
563895/5691353. 


Vendo per ZX Spectrum i seguenti program¬ 
mi: giochi; grafici; istogrammi; agenda; biblio¬ 
teca. Tutti i programmi sono a basso costo. 
Spedire L. 500 per ricevere il catalogo (sem¬ 
pre aggiornato) con ampia documentazione. 
Pietro Cardetta - Via Rosmini, 2 - 74017 Mot- 
tola (TA). 

Scambio programmi per lo Spectrum scrive¬ 
re. 

Marco Bartoli - Via Pinturicchio, 10 - 05100 
Terni - Tel. 420282. 


Texas 


Compro programmi di ogni genere ma so¬ 
prattutto cerco programmi di giochi per 
TI99/4A. 

Massimo Tabasso - Piazza Molineris -12038 
Savigliano (CN). 

Cambio/vendo programmi di ogni tipo (su 
cassetta) per TI 99/4A, anche in Extended 
BASIC. Offro giochi, musica, ingegneria, gra¬ 
fici, ecc.... L'annuncio è sempre valido. Ri¬ 
chiedere o inviare elenco. 

Sergio Ferraro - Via Napoli, 20 - 82016 Mon- 
tesarchio (BN) - Tel. 0824/834310. 

Vendo Texas Instruments TI 58 C completa di 
biblioteca di base alimentatore libro d'istru¬ 
zioni ecc.. Il tutto in ottime condizioni a L. 
85.000 trattabili. 

Stefano Abate - Via E. Falck, 47 -20151 Mila¬ 
no - Tel. 02/3534602. 

Vendo per TI 99/4A: BASIC esteso a L. 
160.000, gioco “Alpiner" a L. 50.000; cassetta 
per imparare il BASIC esteso a L. 10.000. 
Telefonare ore pasti/cena. 

Tiziano Pecchi - Via Antonino Pio, 16 - 00145 
Roma - Tel. 06/5409446. 

Vendo Texas TI 99/4A con giochi Ti Invaders, 
calcio. Music Marker e Joystick il tutto a L. 
480.000. 

Emanuele Destro - Via Cappelletti, - 20091 
Bresso (MI) - Tel. 02/6105571. 

Vendo programmi per TI-99/4A: educativi, 
gestionali e giochi. 

Inviare busta affrancata per ricevere lista. 
Guerrino Fioravanti - Via I. Monti, 34 - 45100 
Rovigo - Tel. 0425/33150. 

Cerco programmi per la TI 59 della Texas 
Instruments possibilmente giochi. Pregasi in¬ 
viare listati spese postali a mio carico. 
Marco Longhì - Via Dante Alighieri - 46045 
Marmirolo (MN) - Tel. 0376/687179. 

Disponiamo programmi di utilità e giochi per 
Texas TI99 a prezzi eccezzionali. Ottima gra¬ 
fica a colori con effetti sonori. 

Telefonare o scrivere per invio gratuito del 
listino. 

Tarocchi Paolo - Via Alberti, 51 - 50055 La¬ 
stra a Sigma (FI) - Tel. 055/8720274/8735356. 

Compro programmi di qualsiasi tipo per il 
Computer Texas Instruments TI 99/4A. Com¬ 
pro anche (possibilmente a modico prezzo) 
libri con programmi per questo computer. 
Scrivere il più presto possibile. 

Marcello Bodilosso - V.le Roma, 23/9 -10052 
Bardonecchi (TO) - Tel. 0122/99502. 
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nuo videa 



p A APPtt 


2+2=APPLE 


Due Riviste famose, specializzate, 
informatissime 

BIT - PERSONAL SOFTWARE 

Due volumi preziosi per chi vuole 
approfondire la conoscenza del suo 
computer 


INTERFACCIAMENTO 

DELL'APPLE 

196 pagine 
Cod. 334B 
Lire 14.000 


APPLE II Guida 
all’uso 
390 pagine 
Cod. 331P 
Lire 26.000 


Una sola firma prestigiosa per chi si interessa 
di informatica e di elettronica 


ORUWO 

IDfTOMALE 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


COUPON D’INFORMAZIONE 


Desidero ricevere un numero omaggio di □ BIT - □ PERSONAL SOFTWARE 
Insieme a maggiori Informazioni tulle condizioni di abbonamento 


INVIATEMI CONTRASSEGNO 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 


334B 

L. 14.000 



331P 

L. 26.000 



contributo fisso spese di spedizione 


Totale 


Nome 


Cognome 


Città 


Firma 


Spazio riservato alle Aziende. SI richiede remissione di fattura 
Partita I.V.A. 1_I_I_I_I_I_I_I_I_I_I_I 






































PERCHE UNA NUOVA DATA? 

Per una ragione più che valida: VIDEO GAMES USA entra a 
far parte di BIT USA, la prestigiosa mostra di home e personal 
computer americani. E l'edizione '84, arricchita dalla presenza 
dei videogiochi, sarà più interessante che mai! 

NON DIMENTICATE DUNQUE di visitare la sezione Videogiochi 
di BIT USA 84, dal 22 al 26 maggio, presso il Centro 
Commerciale Americano 




CENTRO COMMERCIALE 
AMERICANO 

Via Gattamelata 5, 20149 Milano 

tei. (02) 46.96.451 Telex 330208 USIMC-I 


La mostra è realizzata in collaborazione con le riviste 

del Gruppo Editoriale Jackson. 


MILANO 22-26 MAGGIO 1984 





































































































